


d 


N N N 
kg , ! Wi W | 









Institutional Archive of the Naval Postgraduate School 


Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations l. Thesis and Dissertation Collection, all items 


1989 


Computer-aided decision making for ocean towing. 


Peltzer, Todd Jay 


Monterey, California. Naval Postgraduate School 


http://hdl.handle.net/10945/25763 


Downloaded from NPS Archive: Calhoun 


| Calhoun is the Naval Postgraduate School's public access digital repository for 
„p W D U DLE Y research materials and institutional publications created by the NPS community. 
FW | 3 Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS's first 
" H KNOX appointed -- and published — scholarly author. 
http://www.nps.edu/library 






LIBRARY Dudley Knox Library / Naval Postgraduate School 
411 Dyer Road / 1 University Circle 
Monterey, California USA 93943 





EAR 
vé abi E s nn... POR: OO! A Lada Ps agit bee. pm m PW Peers ee 
E ee do URS Ace e RE EE E ANT. Se EE EAT EE vr Are as EL TESTEN I = 
AA AAA LLLA Kaa PE ys Vee wertete et ts D z ge € = ur de AAA vr A E 
Ge II eg Geesen ven ee pr een a ere ege eege ee 
r 
Pe rra! da ede RCI 1 Ew Pw Dee Sa LSC E Egeter 
wa p EEN) AIN DZ: 5 Lud Vu up» M 
RAS A eeben, hg ab ed R ad zes A= ry — = = » . zum o re A ee ek ee er KT rei 
eed AA A vrede ord Drs a E eds ı Ee A ar tee PU paar rwy eee roa Sarpy tree a tary rere err pw ee 
A a dd E "Ta D 2 u Do e all LY wm ane deae ie e t ri do T ae robore ve ertet COP SEE 
entree A O pe ff œ = Pie Srey vey mane V lna YYY raia 
NEE TTT tege A LEE can A Q ee ll, WË E Ei EC? am. rasanten 
en ee er ET Gaeren Ad ER ere = f DI Ha eevee tele EE Seege E E rpa LH T 
o Rpa yz E OZ ze coz vd p» v A er Me ad 4.0 4 ES y e Es ELE EER Pt OR PP ve rr ter rbd 
ode ee EE ET EE EE dorre rr dd dd ee Ger cr l Ort arn arbre a er R ERAS EED = 
A wodę etd ral rl aad , L F - LX) U Eed we ba mg EH Dmm n= 
ERAN AN er ka ansia ay o deel pr g e D (WI L Fa 1 (ten Weer gg deir eg ac e Eeer leg 
Mr eo SE sa deel sede selde ras u C AAT eorr = LM = r — y zaj, = ler TEE Pens egens here ey errr irn Eege 
Des ad laponia = Ls Q EE Leg eis 
died eg CR EECH A le TE; an ar » Seal dit, Lu [v1 em PIDA A DR AAN ptio AR Pe Or gear 
E A sA tr: E and M dae e — va Pa PE <> ¡8 A SI TE N RH TEE owe Pei AE We tech ze 
A NN eer tear r - 5 ^ - u — a A dd rd Meme ey c E ^ 
D A Sri ia IN Eo RI LAC i AE bes unse o Ka ur C o ap aree De e d er re a! res 
Eq EE rr ERAN d A AAA AS es = te mar) QUe. PRA T Harini rd ye very EK Lë 
ee SE nis rn rt gege A EERS hd -—— ged A ÓW maps toga rta, PRIVA 
Geen gege eg te bett Leer WET OE gereis a S A A a. er OTO ee Uere aesti APT r I appe vetet 
EE rg breed erge gered Ee pic Por e m al WW Go PA U. e Le ee AA — arenes boere rar ici pe e M T aan 
Legd, dagegen tel ^ E 
nep Ea bcb E CC eg D a per t a ve rarr gr eg qd Catell aek EE 
i cedem eg tee erger O O A OOO PO mer vos se = e» Te es > anne pere es Lee LE edge eg here 
aarde deed ge EE CE dr ra rede ^ om Es ma o e lalala a o O PR OR 
hice AAA tb up P derer erra nr us T 4 ar” — E De ke ESSA rre arg > De ee rà x END Re 
ie gr po A Pr MAC ert — - e basu PW PP kat Dee e ee EE 
Zentre AL LC Rd Rete 4 vr ns 4 Wb "m tr E a AAA eS > AA Rede era rd erger ra ode pre 
zag" E pem E ke EE ER EE 
ra A cei ore ere a T e «th. CR rr ng d ee PR proe, "e. ee e 
ad dal A ttle Pr auch perum o LL. [2 E " = D [o +. D uar + TY N EE eld. LU opere dr neqoe] eu beggen P EENE E 
Te ad N gege L L tg NAAA ae 0 - Ls Ap MS NI at aerie ad PL “LA RE p he SE 
ty A abeo qe soceri i qd iir andis ts eo Mim = ad = a, PLN maar oe a or ES O ry yr Pide Ae 
pert A AAA N vas t” = HM P" pz kl grees Prze oną zt E POP = SPAWACZA | 
nme meee Sper ont Ae mel olo RP p eae = A D MV TA re ap AAA 2 GA ARI IRA do gg e ee 
PRA ati - y - e — = s PA raro ES en 
nt ER ar - E R > AICA 
a EAS YAA EE EE a Mem mo ^ pm " I. nt: a Md LL r eet) Cu trennen erea 
aa bar ede od OT EE er ri ang Fri mu ae Kra MEC rai tere e REA wroeg orde de 
A Sege ERR "ée e na P uni. rr rn B PUT kee ern EE) ne Veen 
er LE tun arg AS Ii ll ad Fi one = E = p A do Me ID En o Base DUAL e a ep rr d ei tort poy 
fg ed O OC = errem CX ZA” my ec ie c d a. = k menl is raer kadad = Ra ds A a As DR Id perire. 
a AS a ania aiat qued Bante [req —— uM PE ADA IA O inr Sech 
u = be: A El eiua PPE EE ar nl Ai e ^ rw A AAA Pred [X pe Taan pu miko JOSH 
mpare tS Tar T E cm Seta bae ideal o» ka kag DA ee mbe nlad T ee agri de rior qd A 
appa A GOO ŚP JARE dei Dn DD weu bue rdet- m pó we LES ee . Per OR ae C o 
pO T A. per 2 AAA ee ee IJ (LET PX m " Dd — RR UR rA Pu TW O et ee a et a 
nn A CE doo OOP kk P E bel a o EE EE ED ETE a 
pri A iS Aeg ke LA = Co TRA ie. a mme, Wn. a rft A ox 1^5 igi oe klee ed ee ie de E Eege 
apar rm ea Er LIE LELIE De aa PT i Pr A e. d A H w be nn H 7 A be se es 
Pr LĄ PP Sk erdie AAA d Lino . PETA b e i. Beie naa] ee ee de ee n ord ed se N oe ee PAP 
NR rr kl owa d ^ gd » ° hohe. ü adders ed er PIE Petr ppp en Eg 
rn nd ee M EIE i D ^ N PL x ee aere. rer arer keng, A Ce 
mete E LIV H Le: ema D ar 005 D "s es O D D S = one aig Keser? KETTEN E geed lee CE Ein ZERO WO a 
ëmgeleet zowąd a rA e Le ^ N E rk: ` smee AE oer gr 
meam T o ot = P awa ban D D gt ernie sama emerald aban taeda incinerate Es 
ON NS Fara — by Pr E w Aion, Deg a ee hoe da sesse ged peer ge og dd EET 
dle powa TY) ET] . = d b <ażańa EE. aam aa EE ma pnt es 
eieae Pe DET OTS aaea T aaia Kc TU E on] "i d M Bre R ic * K — R as L apa ERT k e rta qr rare RT 
RA an = 4 U LAS ee ss 
Ee ge LL - ee ind Atos . one a ka a Tu DU SE ug € M o seed re re 099% más E 
pi eg E A rr deg na: Sch bulis u ld de ET Fr ee pri RE rd vr eg ged Fre 
o A agreed PY om 0/0 el ora id o ...- a £ Led LZ u rede bede ea EPE a SRO WZ De. peana m orap aanas = 
AA ARE A rd nad H = - Wa ri es m Mu ANAIS rd IAEA AO EIA E Sege Deet ee 
UNS A A rr moot uide ma + Vil ee IE hire ne EL TE SLAP Perd EA 2% wes 
PA E id un la o d cM 7 > KK bre e wég dere eed re de boks bar ed E EY m le 
nr e. de tus bo de aa id a gee hare lord green al ae ee oe OT Ede 
m D me i Ll d EEN D momp as- [Ds E Or EE E 
EE - ee EE 
a EEE ae Aeäef OR ET eee m ale ma LT ray Sen A eg 
o a AE CN Pr SE ma wot E KE KR? ELL EN EE EN Le tege eg arten 
na er ra ege ee ere "P e "ae E R a, Ba SE EE Le et 
ën mm féier se igs isi Ka aut 
S zer prisa nn uo E N " m "m = A al E Y ES ES A ieee mera 
er esse N A E 4 0 ates fend a ce mar un. A, em ut An ee mee dIE ee de ee oe gered id 
ee = er et e M D M o dr a L T tea der 
gege A Ad RE ee wE K m ML .. — x E GH H as Mr TE DAN utr» lge eed 
ata geet TES «m LL edil deng A ars . e w "Ada lr de pia ee BRA DL M m A p 
a eod sem e. eu af Rer a Cot LI a ET AER ER o wa = ax a t = boere n Lead IE ED an POP er P 
pugne. P E ond IE “n ag po 20 eck > n ae K Rar; sde es im N Mo Re Am po RP AE Gr RA 
UA a ro A een z a GM Ñ e kn < I: "EU p = x BEE as bes Pu) ea e Wild, eel EHO 
oe POR Lód — ve aoe ken ben am AA OV PLI Le aa 
Ee EEN papas HP m4 w © LEN wm tm LT" m " a L SÉ >... bow LIP WY dn za ca rer AR Ps 
A ADA di Es ee di E P - - Ge bedeelegte rh ee 
TE a did Mams ET er vu TT e an ^ .. 7 Pa RE ed me nde ie EE EE di OT LIT TT APE N Sege 
Fed Rwa EEN PLI E dad > kadad NN n kad - A ^ pe. ch cp “un U EEE A E 
arti AS A u ET KC E db Lab BO EE. Lk E had A E ad he ata il E d m 
SAA io - owes. d .- ipid - - N oe led eg ser ie Oe Ge 
uiui AE ei e uuo om - wd A pr La E e LN IL MM Ligna 
hal e nz LLL d wen va m m = Se a "^a D m—— a SA cee Z 
tem ep pen EA in. ojal e - a Li ka Eë aged C LA ewe ERA Ged EV AA oe pd 
pre Boi AO AA atte pm al a om — m ei en arde A A t 
PA et od kanne L C ag Ls E P m on Y oa hs me mad e KA T 
eige pP» di Ee L E ri! z kaj = - be raapte nm nt ws Tee 
AAA TE EIE: rn ums a a e o A - - $9 9 ftm ilb KM AIR eel lt biergen A 
AA EE tt PEU d . e Sa ` ia 2. Keng kok AMO i 
peer oer ge N biede i Me AE =. pe ya a = le ede sir es Gn no ae LE TE OE TE MEE 
erre LL draad PII MP MEL ORR A ast m + [d kg 4 B A "A-—— a L P LT TL a a a a 
mp ee dli on xd tors "e ee nael de TE Or MAA AE vee ee 
nenn DE a karne T kand .. = de E" n WA an ame ml dM E 
AUS a [eid -— " a PEE TT OT * m - wa vem = wha LI e LIT ee A AA Fi 
hcl Ad siano No d Li Lë, ee 1a is - ind IS A E O ee 
me PT mv es N we 2 - sê Sw nm d mid S ianiai T 
ge eg ES = mI P " D .. p i-i E esl id idi is o AL TEE O | eee A 
nes Lee o s œ Ñ kt sem > e procu. . e ea ee ld id a 
afde nee wa ARI As d ^ E E e LA kale 2 Lao LATAS ERA Ie 
po ebe ee es A kad Ç D P © Beh Ar = > a ao AA PU AA at 
daolez PEA deel " ml m = rw N A Pr e el E D A A eed 
PAS deeg H eg er SE c Pra Br Lh dass O A PEDRA 
a -— eq o me Mm ums >. ea esa = H A " ehe ef bdk on ae VP Ww Or EP ed 
obees ers = Eat TSN PO m et s. La See O D kJ KN P ET e ee egen 
wane Ge ee oe. "tm m . = ag œ a e ee hlc T npe 
DAA Narr EN ow LLLA Sr » FER RES 5 > ee E Eege 
o SE ed anand ad ee — —m maur b eg SI - E s See € dei ver aa ou aak ee aa 
A t . ec et s met a pad. bei . aa * *« = RAN LL TAP ED Eed AE 
A . eg pe = is N S Ead kadad ive 
PTC w wa p EWA. - nn T - a - ma a P DPM OWE EO Npp PY va 
=e d» aPem fe P DE? kl E = mt u ll lr eed A ra 
EO > Se - . ? - > Kr, S hd “oe MILLIA im 
m UJ — nds = = == 2% s eee. o keng "OSK KEN GES Eed 
nem. m Gegen nai — a re CR . me Abr E A me 
a un. a a .” - = a a LP De do ee Re LI Ld lr ere = 
EE en - - no e a nm = 2 Sieg SEN LE æ . ar Pare UA 
rue ATR RE ae . m » — he 2. P" P ea Poe Voel perd A 
PS ow mam - pa kad - U ^e `~ e +. A "RÉP am 
me PLI ~ — SEEN EE et = FEE dos = pong belra lala P EEN 
age PO RE al min ral ae ri m bad ~ ka V HHL 
= ae ECHT P oom ae ^ . m L . - a dd D mmm. A d 
5 AA p P LINE ALI P P LJ D v on Fr BR daa m parem 
usu» as EEE RE = EE ta . = Den al pas - i .. Ki Pr Tr Pe ee 
d PIT i LJ eed - PJ .. P wa ep SZ = " maid Babette ge BEI E a ae aa OSY" AA Pe GN 
Pe A ia ke e = e = Les ca E E ned he hd uw A A 
p p - . e - ek Ei enger Se ~ M RI N 
AAA PR ES a Ld ^^ Ld Kä bé, AK a a ee T 
- ip dad - -» kg æ ak DES eA A d 
oe E ka a a nn ne 9 Gru en 
one wa. Pa S Kach: E z " P A ES ek A H Mann mdi dE E td 
e > - . « - - . . 
Geet Sa T PT Pd - MI - EJ .. 2 n . . es A . e a ~~ oe LE A Pai PE, aa ane m aw u. 
A ER M PERCY) P LII .- P Ld 4 p) O . z S E x Ll LI aos. DEL d SÉ rrr e p E TESCH A NS S pei 5 e 
Jm .- em -. KR OE . a K bs WA MENS "e nd ka E be = eh “Aa Mee LER L L 
sif = wos e D . 9 D D - a. U , z E e d EE a www a Wes mów m Tom 1) ige 
» PPPOE eg ez - " he Au NE IP ee eee œ r den~ 
ps pa” Era - KK: ia AE a e 
-... kai z eg La e ee N eo. MA CO — E 
ate Lg . ba bi iom N m a. 
md kd = a Leg bd > - P] EH was 
Ed Akon RA A . GES kee * lind ar) mmm w amo 
a pp EO ae Ty A d LA fa dm = TM oes a | wa. a Së 
ep ve Am d awe LITE N Lal * e P w wad t 
TE E ww ww awe pa "m P pS P = ld A 
p am ë amm ØU e wa nad ad ue = ted La. he AA pa 
aw en x bese = and e D p e = wa - 
PO E EN E E m e --a"a ve mn. uta a e E a w 
E wie m A - - P “e P PO y yoo a "m Se 
PO O ee wa = ce e D u. a PW EEN 
E TEE - - se uma " 1e ME) ^ œ Los KA EE ne 
pon S mA - ar - m me L - . a tan oe nm perm Se) m 
o apaa PU m ra E dsl ia D OE 70 
—— e Fr E EY ^. ie om. om PP N 
art -. E ké A = ei sm Av W | ete e — - " 
A er ee) hd = A A var“ ea D E re P" 
= PE - - "e a AA LE mm m m 
G a D 40>» R. LLE AR i LJ dd nm. 
+ pe ser N 7 et — nn pmo E 
s E C “or m e 7 . == >= - *-—À oee we E EH TE 
E C om N IR LANE T 
Pa maar Er : - > Ke E ss - LEER P D e -y 
- + o e La = = a WY p aa el DOE oe 
T D H - . * — 1 ie 
ES ing a "Aw © EA) LE al Ek? - 
nr [m * SS = = = mo maa OE - 
ar gd me «3 ka - Dee laal, = eee E - 
EP La = ioc diae d PP 
Ñ - ad ^ E > LEID IM MI 
j nn. PET ai ae? ies ark Pete gi 
Az RE =- di ind = * M. A R D D DR D nn 
ke - ma a Ohare é E 
S » Së - e. -— a e. el ^ E 
DN xk = m . ~ =% “~s > 
e - e d > PI -. A . 
P - P Kéi 
ea æ „A ^ bed L - mnc FE 
m e - LE . . eg Ry = R szalę i a 
- E = Me H P 
> D kat SE . - D - e - 
P i KI a=" - e 
A ~ ...» Ll a%re EA d.d Ld 
- > =e © a LN 
EK e*- b El LJ mee. 
U = LI 
Ld on <a% we `n Mee "I 











COMPUTER-AIDED DECISION MAKING 
FOR OCEAN TOWING 


by 


TODD JAY PELTZER 


à 1 t 


S.B. Naval Architecture and Marine Engineering 
Massachusetts Institute of Technology 
Í (1979) 
SUBMITTED TO THE DEPARTMENT OF OCEAN ENGINEERING 
IN PARTIAL FULFILLMENT OF THE REQUIREMENTS 
FOR THE DEGREES OF 
NAVAL ENGINEER 
and 
MASTER OF SCIENCE IN MECHANICAL ENGINEERING 


at the 


MASSACHUSETTS INSTITUTE OF TECHNOLOGY 
| June, 1989 


© Todd Jay Peltzer, 1989. All rights reserved 


The author hereby grants to M.I.T. and to the U.S. Government permission to reproduce and 
to distribute copies of this thesis document in whole or in part. 
A 


1246000 





COMPUTER AIDED DECISION MAKING 
FOR OCEAN TOWING 
by 
TODD JAY PELTZER 


Submitted to the Department of Ocean Engineering 
on May 12, 1989 in partial fulfillment of the 
requirements for the degrees of Naval Engineer and 
Master of Science in Mechanical Engineering 


ABSTRACT 


An interactive program for microcomputers, TOWCALC, was developed to implement the 
results of recent theoretical work in nonlinear towing dynamics. This work makes possible a 
statistical description of extreme tensions in towlines based on the seakeeping motions of the 
tug and the tow, where the extreme tension is defined as the sum of static tension and peak 
dynamic tension which has a probability of 0.001 of occurring in a given day of towing. The 
resulting data base of extreme tensions (for a range of tugs, tows, towing speeds, towline 
lengths, sea states, and wave angles) is incorporated into TOWCALC, which automates the 
process of estimating mean towline tension and extreme towline tension. Mean towline ten- 
sion is estimated using methods given in the U.S. Navy Towing manual for resistance of the 
tow, and an analytic method is developed for the towline resistance. TOWCALC gives tow 
planners the ability to quickly evaluate the feasibility of a given tow, as well as to evaluate 
the level of risk; tug operators at sea will be able to anticipate dangerous peak tensions and 
take steps to reduce the risk of towline failure. As a result, using TOWCALC will lead to 
safer and more efficient ocean towing. 
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Chapter 1 


Introduction 


As in all maritime endeavors, there is an element of risk in ocean towing. Ship motions 
due to heavy seas can induce dynamic loads in the towline sufficient to cause failure with 
possibly disastrous consequences, endangering personnel, hazarding the tug and tow, and, in 
some cases, endangering the environment. 

Managing the risk of towline failure requires some measure of the magnitude of these 
dynamic loads. Previously, the dynamics of towing with regard to the seakeeping motions of 
the vessels had not been studied in any detail, so there were no quantitative means to predict 
towline dynamic tensions. Towing system design used a single factor of safety applied to the 
mean towline tension to account for dynamic loads; comparison with the towline’s nominal 
breaking strength was then used to evaluate the risk of towline failure. 

This simplistic approach has been replaced in Naval practice by the results of recent 
theoretical work (Frimm [1], Milgram [2]) which make possible a statistical prediction of 
extreme tension based on the nonlinear towline dynamics. These results predict extreme 
towline tension (mean plus peak dynamic) based on the mean tension. Using these methods 
to compute extreme tensions directly is not feasible, however, for tow planners and tug oper- 
ators. Consequently, a data base of extreme tensions for various combinations of tug, tow, 
towline length, tow speed, wave angle, and sea state was developed. This has been 
incorporated into the latest revision of the U.S. Navy Towing Manual [3], consisting of a 
series of tables and graphs from which a tow planner or a tug operator may determine the 


extreme tension which has a probability of 0.001 of occurring in a day of towing. 
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Armed with this knowledge, planners and operators can better evaluate the risks, and 
thus make more intelligent decisions regarding a given towing situation, leading to safer, 
more efficient towing. The procedures for computing extreme towline tensions, however, are 
laborious and time consuming, and thus do not lend themselves to exploring alternatives. 

The purpose of this thesis is to provide an interactive, microcomputer based program 
which automates the process of predicting extreme towline tensions, to be used by U.S. Navy 
personnel involved in both the planning and execution of ocean tows. This will give tow 
planners the ability to quickly evaluate the feasibility of a given tow, as well as to evaluate 
the level of risk. Tug operators at sea will be able to anticipate dangerous peak tensions and 
take steps to reduce the risk of towline failure. 

Chapter 2 discusses the problem of towing dynamics, outlining the theory of nonlinear 
extreme tensions and their prediction. Chapter 3 discusses the methods used to predict the 
resistance of the tow and of the towline, which together give the mean towline tension, a pre- 
requisite for the prediction of extremes. Chapter 4 describes in detail the computer program, 


TOWCALC, developed to implement the results of the recent theoretical developments. 
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Chapter 2 
Towing Dynamics 


2.1 Introduction 


My purpose here is to outline the problem of towing dynamics, particularly as it relates 
to the planning and operation of ocean tows. A more thorough and complete treatment of 
towing dynamics is given by Milgram [2], which forms the theoretical basis for much of this 
work, and which 1s summarized here in part. 

The goal of the analysis that follows 1s to determine the magnitude of the dynamic, or 
time-varying, loads experienced by the towline in order to better predict the possibility of its 
breaking. To do so, we must form a mathematical model of the complete towing system, 
which includes the tug, tow, and towline, as well as a description of the environment. The 
motions of the tug and tow are well described in terms of linear seakeeping theory; the tow- 
line tension, however, presents a number of sources of nonlinearity. 

In this chapter, I will discuss the nonlinear model for towline tension, the twelve- 
degree-of-freedom towing system model, the statistics of extreme tensions, and the develop- 


ment of an extreme tension database. 


2.2 Assumptions 


There are a number of assumptions made in this analysis regarding the composition of 
the towing system. First, only single tows are considered: multiple tows, although common 
in practice, are beyond the scope of the present analysis. We consider here only wire rope 
towlines, as these are the primary towlines used by Navy towing vessels when conducting 


Ocean tows. 
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The composition of the towline system, which connects the tug and tow, is assumed to 
be a single shot (90 feet) of chain connected to the towline, with 20 feet of the chain on the 
deck of the tow; the remaining 70 feet extends past the bow. The chain serves two purposes: 
it prevents the towline from chafing against the deck edge of the tow, and it reduces the 
effective stiffness of the catenary. In reality, most Navy tows are rigged with a towing bridle 
that consists of two shots of chain connected to a "flounder's plate", to which an additional 
length of chain is attached; this final chain pendant is then connected to the towline. Figure 
2.1 shows the two arrangements. 

The analysis of nonlinear extreme tensions presented here presumes a fixed towline 
length. Many Navy towing vessels have constant tension winches, however, which actively 
control towline length in response to the load. Use of these winches in automatic mode is 
standard practice, and greatly reduces peak dynamic tensions in the towline. Consequently, 
the results presented here apply directly to fixed length towlines and will give conservative 


estimates of dynamic loads when the towing winch is used in automatic mode. 
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Figure 2.1. Towing Bridle Geometry 





2.3 Nonlinear Towline Model 


2.3.1 Nonlinear Equations of Motion 
The towline is modeled as a cable, that is, as a perfectly flexible curved rod. The gov- 


erning differential equations for towline dynamics can be written as (Triantafyllou [4]) 








do „| ag ðq | ðq 
m — =(T +T) a+— |-/ -TQ eh 
ot^ ( | ds d | d Of or ( 
with 
È Po af! a PR g | 
J] REA 2af L h m s 2.2 
| ¡A p mm E e | 
where 


A =cross-sectional area of the cable 
E — Young's modulus of the towline 
m = towline mass per unit length 
w = towline weight per unit length 
s = Lagrangian coordinate along towline 
q,p =normal and tangential motions along towline 
T,T =static tension and dynamic tension 
D,L =cable diameter and length 
p = mass density of water 


po = tangential displacement distribution due to m 


l 
b = „pc pD = sectional drag factor 


C, — towline sectional drag coefficient 


a =wL/T = catenary static curvature 





These equations contain some considerable simplifications when compared to a com- 
plete dynamical model for cables, but for a towline whose static configuration changes 
slowly in a seaway the model is adequate. Equations (2.1) and (2.2) preserve the following 
nonlinearities (Milgram [2]): 

1) the crosstlow drag force, 

2) the product of the dynamic tension and the dynamic curvature, 

3) the nonlinear tension-displacement relation for a towline undergoing clipping, 

4) the geometric nonlinear tension-extension relationship for a catenary. 

The crossflow drag experienced by the towline is due to its transverse motion, At the 
frequencies of towline end motion excitation found in towing situations, the drag force can 
dominate inertia forces. This drag opposes the transverse motions, considerably reducing 
their magnitude, with the net effect that the towline must stretch to accommodate the end 
motions. 

Clipping refers to the phenomenon of a cable that becomes completely slack, and then 
taut again, as happens during towing. This occurs because the cable cannot support compres- 
sion. 

The dominant nonlinearity in towing dynamics is the relationship between tension and 
cable extension. Figure 2.2 shows this relationship for a representative towline. Over a rela- 
tively large range of cable span, the static tension is a linear function of span. This is because 
the cable responds to the motion of its end points by changing its geometry — the effect of 
the catenary. Beyond a certain point, however, the towline can no longer accommodate its 
end motions in this manner, but must stretch, with the highly nonlinear effects exhibited in 


Figure 22. 
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Figure 2.2. Towline Tension vs. Span 


2.3.2 Polynomial Approximation 

The fundamental parameters used to describe the towline are the elongation (5) and its 
time derivative (E), where the elongation of the towline 1s defined as the tangential motions at 
both ends. Based on a series of time domain simulations of towline behavior using equations 
(2.1) and (2.2) (confirmed by experimental results [2]), the nonlinear tension can be accu- 


rately represented as a polynomial approximation of the form 


T. 5)- Y AT DEE) 


=a Qn 


m+ns3 


ue CH # (0,0) 


The time simulations are performed for the desired towline geometries and static ten- 


sions, forcing the towline sinusoidally at vanious frequencies and amplitudes over the range 
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of frequencies and amplitudes of interest in real towing situations. From these N simulations, 
typically several hundred, N triplets of elongation, rate of change of elongation, and dynamic 


tension (5, E T;) are generated. Next, the set of N overspecified equations 1s formed as 
3 3 d 
EE (2.3) 


+n <3 
with: | ee IAN. 


(m,n) # (0,0) 
and the coefficients a,,, are determined such that the weighted mean square error is mini- 
mized. Weighting 1s used to ensure the resulting towline model is most accurate for the 
larger tensions which are of greater concern for ship motions and towline safety. The 


weighting used 1s 


where Z; is the elongation amplitude, «, is the circular frequency of the excitation, and D is 


the cable diameter. 


2.4 Towing System Model 


A tug and tow at sea comprise a twelve-degree-of-freedom system, with each ship 
being driven in its own six degrees of freedom by both ocean waves and by the dynamic ten- 
sion of the connecting towline. Figure 2.3 shows the geometry of such a towing system. 

The statistics of the motions of a single ship in a seaway are well modeled by linear 
seakeeping theory in terms of the ship motion frequency responses to wave surface elevation, 
using a stochastic description of ocean waves, such as a Pierson-Moskowitz spectrum (see 
Figure 2.4), as input. Until recently, however, there has been little analysis of the more com- 


plex problem presented by one ship towing another [2]. 
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Figure 2.3. Towing Geometry 


40 kts 





0.2 04 06 08 10 
Circular Frequency (rad/sec) 


Figure 2.4. Pierson-Moskowitz Sea Spectrum 
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The equations of motion of the twelve-degree-of-freedom system can be written in the 


frequency domain as 


[-w,M,(@,) + 10, B,(w,) + C,)X, = F,(@,) (2.4) 
where 
X, v 
X; 12x1 
M, * A((0,) 0 
M,(@,) = 
0 M; + Az(0,) | 
B (0) -D =D 
B (c) -| l ) 11 12 l 
Da B,(w,) — D, 12x12 
C p "m. 
ar G AÉ 
F (%,) 
F,(0,) = 10 
F;(0,)e 12x1 
and where 
W, = encounter frequency 
M,,M, = generalized mass matrices for tug and tow 
A „A, = generalized added mass matrices for tug and tow 
B,B, = damping coefficients for tug and tow 
C,,C, = hydrostatic restoring force matrices for tug and tow 
F,F, = wave exciting force vectors for tug and tow 
B,,B, = motion response vectors for tug and tow 


O is the phase of the wave at the center of gravity of the tow with respect to the phase of the 


wave at the center of gravity of the tug. 
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The effects of the towline on the ship motions are found by using the theory of equiva- 
lent linearization [1], which assumes a linear relationship between the towline tension and its 
extension and time derivative of extension. Using this theory, the total towline tension, 77, 


the sum of static and dynamic tensions, is given by 
T,=T+k &+b,8 
The linearized unsteady extension is 
E=S, : X, +8, * X, 


where S, and S, are given in terms of the towing geometry (Figure 2.3) as 


= 


COS (X, COS Y 
COS OL, SIN Y 
sin Qt, 
—f, cos a, sin y 
ficos & cos y t p, sin a, 
—p, COS QL, sin y 


— cos a, cos(y+ Vy) 
— Cos O, SIN(Y + Vo) 
sin Qt, 
f; cos a sin(Y * Wo) 
| f; cos oc, cos(y-- Wo) — p; sin ac 
| —p, Cos 0, SIN(Y + Yo) 


S, = 


The unsteady forces exerted on the tug and the tow by the towline can be written, in the 


frequency domain, as 

Fy, = KX, + KX, + D,,X,+D,,X, 

Fy, = K„X, +K„X, + D, X, - D,,X, 
given in terms of the restoring force matrices K and the damping matrices D. Expressions 
for the K's and D's are given by Frimm [2]. 
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Solving equation (2.4) gives the frequency domain ship motion vector in terms of the 


wave exciting force vector as 
e 2 al 
X (0,)= (-0:M(0)+¡0B (0)+C] F. (0w,) 
where again both X, and F, are for the complete twelve-degree-of-freedom svstem. 


The wave excitation forces can be written as 
F,(0,.B) =W(0,. B)H.(0,, B) 
where œ, is the encounter frequency of the wave, D is the propagation angle of the wave with 
respect to the course of the tug (see Figure 2.5), W(c«,. B) is the wave amplitude, and 


Hy--(@,, 8) is the transfer function from wave amplitude to tug and tow wave forces. 
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Figure 2.5. Wave Angle Coordinate System 





The frequency domain towline extension depends on the wave amplitude and direction 


Sint, D = S'L-9:M, (o) * 1@,B,(@,) + C) Hyp(©,, BW (o, D 
where S’ is the transpose of S, given by 
S - [8,$;] 


The directional transfer function from wave amplitude to towline extension can thus be 


expressed as 
Hy (O,, p) = S'[-0M (0,) +10,B (0,)+C|] "H,r(©,, B) 
and for any directional encounter frequency wave power density spectrum Syy(w,, B), the 


linearized towline extension power density spectrum, S;.(,), is given by 


2m 


Swi < [ Sy(e, DIH, BIAB (2.5) 


0 


We will need the moments of Auto), m, n = 0,2, ..., in the analysis of extreme tension 


statistics. These moments are given by 


m = | £s todo, 


Ją 
0 


2.5 Extreme Tension Statistics 


Since the sea waves, which are a random process, are the driving excitations in the 
dynamic motions of the tug and tow, and thus in the magnitude of the dynamic towline ten- 
sion, the towline tension will also be a random process. Thus, the best way to predict towline 


tension is to use a statistical approach. 
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The most useful statistic is the extreme tension that has a prescribed probability of not 
occurring during a given time. Such à statistic is called a "short term extremal statistic’, to 


which we turn next. 


2.5.1 Short Term Extremal Statistics 

Suppose the dynamic tension T(r) is linear, and thus a gaussian random process. We 
define „7, as the tension value that has a probability a of being exceeded in a period of Ar 
seconds. For example, jool sae iS the value of 7 that has a probability of 0.001 of being 
exceeded in 86,400 seconds (one day). 

The theory of short term extremal statistics of large extremes of gaussian random pro- 


cesses gives 





t 
m, In (5 n Ns [m ) 


where mo, and m, are the zeroth and second moments of Srr(0), the power density spectrum 


of the random process Fe). 

While this result is valid for finding the statistics of extremes for ship motions and the 
towline extension, it is not valid for the extreme tensions of wire rope towlines. This is 
because the highly nonlinear relationship between towline extension and tension (Figure 2.2) 
makes the dynamic tension, T (f), a very non-gaussian random process. 

The maxima of the total towline tension is formed by the maxima of the dynamic ten- 
sion T added to the static tension T. Since T is constant, to evaluate tension extremes we 
need consider only 7. A theory for extremes which allows inclusion of the nonlinear 


behavior of the towline |1] follows. 


ty 
u 





A cycle of T is defined as the behavior of T from a time that it is zero and increasing (a 
positive zero upcrossing) until the time of the next positive zero upcrossing. The maximum 
value, or peak, reached by 7 during one cycle is a random variable, Y. The probability distri- 
bution function for Y, F,(Y,), is the probability that Y is less than Y. 

For a large number of cycles, n, and a value Y, much larger than the average peak, the 
largest peak during this period 1s designated Y,. The probability that Y, is less than Yo, 

Fy (Yo), is approximated as 

Fy (Yo) = [FAY 
This approximation assumes that because Y, is large, occurrences of it being exceeded are 
well separated in time so they can be considered statistically independent. 


The value of Y, that has a probability o of being exceeded is ,Y,, and so 
[FA Y = or FA.Y,)=(1=0)" 
If the function F,(Y,) is known, then ,Y, can be found as 
„Y„=Fy[(1-0'"] 
Let „T, be the random value of the largest tension peak occurring in a time interval Ar 


whose probability of being exceeded is a. The average number of cycles per second of T is 
called N(0). Thus, „7, is related to „Y, by n =N(O)JAv and so 
MAA RE a (2.6) 


,Y, and 4T, are short term extremal statistics of the tension peaks. To find them we 


must determine F\(Y,), the probability distribution function (pdf) for the value of an arbitrary 


tension peak. 
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The frequency of upcrossings by T of any dynamic tension level Y, is called N(Y,), 


which is given by 
Nor)» [ for Tar (2.7) 
0 


where f(T, 7) is the joint pdf for the tension and its time-derivative. The frequency of zero 


upcrossings 1s 
N(0) = { T f(0,T)dT 
0 


These frequencies are related to the pdf of an arbitrary tension peak through 


N(Y,) 
` NI 





F(Y y) =1 (2.8) 


The approach is to find the level crossing frequencies, N(Y,), then use equation (2.8) to 


find the pdf for the peak amplitudes, F,(Y,), and then use equation (2.6) to find the desired 
extremal statistics. 

The details of this analysis are given by Frimm [1], with the result that equation (2.7) is 
integrated directly in the (6, E) plane, after a suitable transformation of variables to 


oo 


ES 
N(Y) = O S, MO H d d 
vos [ | Vs | 


—00 


where 5 = (&, E are the points along the constant tension curve T = Y, in the (5, E) plane, s, 


and s, are the initial and final values of s, u(...) is the unit step function, and p;(...) is the joint 


pdf of the cable extension. This last is given by 


[i | E as 42 , 
K R. E = e plein, Er — E + 2m, Ë) 
p55, 5) zaj? zl 5E MS m di 
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where A = ma Ma — LEE and Mo, Ma, Ma, ME the extension spectral moments determined 
4 N S i x 


from equation (2.5). 


2.5.2 Computational Method 

Figure 2.6 shows the overall scheme for computing the extreme tension statistics. 
First, the towline governing equations are solved to produce a set of time simulations of cable 
behavior. From these, equation (2.3) is solved for the dm, $ for each towline condition. With 
these, the twelve-degree-of-freedom motion equations are solved iteratively, using the equiv- 
alent linear towline model to predict ship motions. Once convergence is obtained, the result- 
ing towline extension spectrum is used to calculate the "extreme tension", Ti, which is 


defined as 


de e 


Tan = tr Ké 


and T is the mean static tension. 
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Figure 2.6. Data Flow for Computational Scheme 


2.5.3 Data Base Development 


Ideally, this method for predicting the nonlinear extreme tensions would be used 
directly by tow planners and tug operators. However, the computational requirements are 


currently beyond the resources available to these potential users. Consequently, a more prac- 


tical alternative was developed to bring the results of this analysis to the fleet. 


Since the extreme tension depends on tug and tow geometries and weight distributions, 
towline characteristics and length, mean tension, towing speed, sea state, and towing direc- 
tion with respect to the waves, a data base of extreme tensions was developed for various 


combinations of these parameters. Table 2.1 lists the particular values used in generating the 
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The resulting extreme tensions were plotted against the mean tension and compared 
against a set of 100 "standard curves" [2]. Based on that comparison, a table was developed 
showing the appropriate standard curve to use for the given combination of towing parame- 
ters. The curve selected is the one which minimizes the error between it and the tensions 
computed from the non-linear theory. A weighted least squares method was used such that 
the curve selected minimized the error near extremes corresponding to 70 percent of the 
breaking strength of the tow wire. 

Although the range of towed vessels in the data base of extreme tensions covers most 
of the vessels in the Navy, the very largest, aircraft carriers, were omitted. Towing an air- 
craft carrier is a rare event, but should the need arise, it is important that Commanding Offi- 
cers and Masters be able to predict their ability to safely tow the vessel. 

Consequently, a representative aircraft carrier, CVN 65, with displacement of 85,000 
long tons, was chosen to be included in the data base. The tables of standard curve choices 
that resulted are given in Appendix A. To facilitate use by Fleet personnel, the wave angle B 


is replaced by a heading angle, where 


heading angle = wave angle + 180". 
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Tugs: ARS 38 ARS 50/ATS 1 T-ATF 166 












Towline dia: 2.00 in 2.25 in 2.25 in 





Displacement: 1900 LT 3200 LT 2260 LT 


Tows Displacement 






YRBM Berthing barge 650 LT 






PEG! Fee | 3200 LT 









DD 963 Destroyer | 6700 LT 


AE 26 Ammunition Ship 20,000 LT 





LHA1 Assault Carrier 40,000 LT 


Wind Speed (kts) 15 20 25 30 
Tow Speed (kts) 3.0 6.0 9.0 


Towline Length (ft) 1000 1200 1500 1800 2100 





Mean Tension (Ibs) 10,000 20,000 40,000 80,000 120,000 


| 
Wave Angle (deg) 0 60 120 180 


Table 2.1. Data Base Towing Parameters. 
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Chapter 3 


Resistance Prediction 


In order to use the extreme tension results of the previous chapter, the mean towline 
tension must be measured or estimated. In this chapter, I discuss methods for predicting both 


the resistance of the towed vessel and the resistance of the towing hawser. 


3.1 Tow Resistance 


The resistance of a vessel in a seaway at low speeds is not well understood, particularly 
because the added resistance due to waves at low speeds is a poorly understood phenomenon. 
Nevertheless, the U.S. Navy Towing Manual [3] gives largely empirical procedures for esti- 
mating the resistance of vessels at towing speeds. These have produced reasonably useful 
results over the years, and they are adopted herein for lack of any better, practically useful 
methods. 


The total tow resistance, Rz, is assumed to be made up of four components, and can be 


written as 
REK ORE RO ER 
where 
Ry = calm water hull resistance 
R, = wind resistance 
R; = added resistance due to waves 


R; = resistance due to the tow 's propellers 
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The Towing Manual distinguishes between three different types of towed vessels: self- 
propelled ships, floating drydocks, and barges. Somewhat different methods are used to 
compute the separate components of resistance for each type of vessel, and we will look at 


each in turn. 


3.1.1 Hull resistance 
3.1.1.1 Self-propelled ships 


The calm water resistance for self-propelled ships 1s given (in pounds) as 
Ry 
R, = 1.25 x CS x A 


where Ry/A is given as a function of towing speed in Figure 3.1 (reproduced from [3]), and A 


is the displacement in long tons. The appropriate curve to be used in Figure 3.1 is given in 
Table G-2 of the Towing Manual, which lists data for 141 types of Naval vessels. A twenty- 


five percent margin is included to account for hull fouling and other uncertainties. 


3.1.1.2 Drydocks 


For floating drydocks, the calm water resistance in pounds is given by 
Ry =f, xS x (V_/6)" 
where 
f, =a coefficient depending on the degree of fouling of the hull 
S = wetted surface area of the drydock 


V, = tow speed in knots 


The values of S and f, are obtained from Table 3.1 (reproduced from [3]). 
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3.1.1.3 Barges 


The method for barges is precisely the same as for drydocks, except that the wetted sur- 


face area S is given by 


S = (length) x (width) + (perimeter) x (draft) 
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Figure 3.1. Hull Resistance Curves for Self-Propelled Ships 
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Table 3.1. Drydock Towing Coefficients 
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3.1.2 Wave Resistance 
3.1.2.1 Self-propelled ships 

For self-propelled ships, the added resistance due to waves is estimated using the 
curves in Figure 3.2, reproduced from the Towing Manual, based on the hull form. The 
entering argument in these curves is the wave height in feet; the user is expected to use 
observed wave height, or to infer wave height based on wind force (Beaufort number) from 
data such as that in Table 3.2. The latter approach does not lend itself well to a digital appli- 
cation, since a Beaufort number does not correspond to a unique wind speed or a unique 
wave height. 

A more attractive alternative for computer implementation is to associate a unique 
wave height with a given wind speed. This can be readily accomplished using a spectral 
description of wave energy, such as the Pierson-Moskowitz spectrum (Figure 2.4). 

The Pierson-Moskowitz spectrum is an example of a general two-parameter sea spec- 


trum, which is described by 
$(&) - (ag /a) exp(-B(g/V..o)') 
where 
S(@) = frequency spectrum, m” » sec 
©) = wave frequency, radians/sec 


a , B 2 nondimensional parameters 


g = gravitaitonal acceleration constant, m/sec’ 


V, ? wind velocity at 19.5 m above free surface, m/sec 
For the Pierson-Moskowitz spectrum, the nondimensional parameters take the values 


ao = 8.1107 B= 0.74 
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Figure 3.2. Added Resistance Curves for Self-Propelled Ships 
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Table 3.2. Beaufort Scale (From U.S. Navy Towing Manual) 


27 


Wave heights can be determined from this spectrum in terms of spectral moments, with 


the result that (Newman [5]) 
Hz average wave height — N2 x m, 
H ,, 2 significant 1/3 waveheight = 4 Nm, 


where 


M = zeroth moment = total energy in spectrum 
= | S(@) do 
0 


Computing m, for the general two-parameter spectrum gives 


dE 


Selecting H. as a more relevant measure of wave height than the average wave height 


when considering towing dynamics, we have 
Hy, 220g) Na. B 
=k V% 
giving wave height as a function of wind speed alone. Using English units gives 
H ,, 2 0.0186 x V, 


with V4, in knots and H,, in feet. 


Given the wave height, the added resistance is found directly by entering Figure 3.2 


using the appropriate curve indicated by Table G-2 [3]. 
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3.1.2.2 Drydocks and Barges 
For drydocks and barges, an empincal rule is used to compute the added resistance due 
to waves: 
SD OE 
where 


R... = resistance, lbs 


wave 
B = cross-sectional area below the waterline, ft? 
f, = coefficient depending upon bow and stern configuration 
V = speed of tow, kts 


K = 1.2, a 20 percent allowance for rough water and eddies 
Table 3.2 gives the values of B and f, for the Navy’s floating drydocks. For barges, 


B = (beam) x (draft), f, = 0.2 for typical rake-ended barges or blunt ship-ended barges, and 
f,=0.5 for square-ended barges. 


3.1.3 Wind Resistance 
3.1.3.1 Self-propelled ships 


The wind resistance for self-propelled ships is given (in pounds) as 
Ry, = 0.00506 x C,, N ANK x U 


where C,, is a wind coefficient, found in Table G-2 of the Towing Manual, A; 1s the frontal 
projected area of the ship, also found in Table G-2, K is a heading coefficient, based on the 
relative wind direction, and Vj, is the relative wind speed in knots. 


The heading coefficient K is given by 


1.0 0€ y«20 
IZ 20<y<40 
0.4 40<ys 90 
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where y 1s the relative wind direction in degrees, with zero dead ahead. 


The relative wind speed is found as 


Vę = VI + VG + 2V.V„cos(180 — y) 


Vy = tow speed, knots 


Vw = wind speed, knots 


3.1.3.2 Drydocks and Barges 
The wind resistance for floating drydocks is given (in pounds) as 
Ry, 2 0.004 x C x f, x (V Vr 
where 
C 
J 


cross-sectional area above waterline, sq ft 


coefficient depending on vessel shape above waterline 
and Vx, Vyy are as before. C and f, are given by Table 3.1. 


For barges, the same expression is used as for drydocks, with 


C = (freeboard) x (beam) + (height)ppeknousz X (width) pecxnouse 


and f, = 0.60. 


3.1.4 Propeller Resistance 


The resistance of a ship’s propeller that is locked in place is given by 


R, = 3.737 X A,X V- 
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where Ap is the projected area of the propeller, found in Table G-2 of the Towing Manual, 
and V; is the tow speed in knots, as before. If instead the propeller is allowed to trail, or 
free wheel, this resistance is reduced by half; if the propeller is removed, the propeller 
resistance 1s zero. 

Floating drydocks and barges of the types considered here do not have propellers, so 


for them the propeller resistance is zero. 


3.2 Towline Resistance 


The Towing Manual gives two methods for estimating the resistance of a towing haw- 
ser. The first is to take ten percent of the total resistance of the tow; the second involves 
interpolating a table of data given in the Towing Manual. Neither method is particularly 
useful: the first overstates the resistance in most cases, while the second is difficult to apply. 

An improved estimate can be made by analyzing the hydrodynamics of the hawser. 
Much of the analysis here follows Berteaux [6]. Itis assumed throughout that the hawser is 
perfectly flexible, that it does not stretch, and that it is symmetrical about its midpoint. The 
geometry of a towing hawser is shown in Figure 3.3. 

Although the towline is moving through the water, we consider the equivalent problem 
of a static cable in a constant horizontal current. 

The resistance of the hawser has two components, one due to normal pressure drag, and 
the second due to tangential frictional resistance as shown in Figure 3.4. The normal contri- 


bution is given by 
l 2 
D ar C py d (Vy) 


per unit length of cable, and where 


4] 


D = normal drag component 

p = density of water (slugs/ft') 
Cp, 7 normal drag coefficient 

d = hawser diameter (ft) 


Vy = normal velocity component 


Since Vy = V sing , the normal drag component becomes 
] 205-2 
D =5P Con 4 V sin 6 
Similarly, the tangential contribution per unit length is given by 
l 2 
m =>P Cpr td (V7) 
Or 
l NN 
Da" Copa Vicos 0 


where 
F =tangential drag component 


Cp; = tangential drag coefficient 


and where V; = V cos @ is the tangential velocity component. 
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Figure 3.3. Towing Hawser Geometry 





Figure 3.4. Tangential and Normal Forces on a Cable 
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The drag coefficients Cp; and Cp, both vary with Reynold’s number, Ry. For the 
range of Reynold’s numbers of interest in towing, these coefficients have the approximate 
values (Berteaux [6]) 

Cpp = 1.4 


Chr = 0.015 


To find the total hawser resistance, we must integrate the horizontal components of the 
normal and tangential drag along the length of the hawser. Since both D andF are func- 
tions of the angle $ , we must first determine the geometry of the hawser. 

Considering the static equilibrium of the hawser in the normal and tangential directions 
yields the following differential equations 

dT — (P sinó — F) ds 
Tdo = (D sin $ + P cos $) ds 
where 

T = cable tension 

P = weight of cable in water 

6 = cable inclination angle 

s = curvilinear coordinate along the cable 
If we neglect the resistance of the hawser in determining its geometry, the equilibrium equa- 
tions become 

dT =P sing ds 
Td$ =P cos$ ds (3.1) 


Eliminating P and integrating over $ and T leads to the result 


jy 
0 — tan T 





where T, is the horizontal component of the static tension. This gives the inclination of the 


hawser as a function of its curvilinear distance from the midpoint. 


Resolving D and F (Figure 3.4) into horizontal and vertical components gives 


D, =D'sinb 
D,=D cost 
Fy =F cos 
Fy =F sing 


so the total horizontal resistance of the hawser per differential element is 
dR =D,,+F,=Dsino+F coso 


or, 
fi plas 
dR = zP Cond V sin’ >] sino 
l 2.2 
+ lo Cpr td V cos | cos $ 
ME 2 - 3 3 
-5pd V'[Cy, sin 6*1 C5, cos 6] 
Integrating this along the half-length of the hawser gives 
R= ET V*[Cpy sin” 6 +18 Cpy cos $]ds 
0 


which can be transformed into 


$ 
1 | To in? 


d COS 


where again $ = tan” E and s is one half the total length of the hawser. 


The total hawser resistance Ry is twice the value given by equation (3.1), and thus 
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To in“ | | 
op a VOS ies | S79. cosas +2)- 2 +7 Cy sin o (5:2) 


Neglecting the effects of the hawser drag on its geometry is not strictly valid, but when 
the depth of the hawser catenary, H, is small compared to the total span from end to end, L, 
as is usually the case in ocean towing (see Figure 3.4), the difference between the actual 
geometry and that of the assumed static catenary is small. 

For a hawser moving through the water at a constant speed, as we have assumed 
throughout, equilibrium requires that the pull of the tug balance the resistance of the tow and 
the drag of the hawser. We have already estimated the resistance of the tow, and equation 
(3.2) gives an estimate for the hawser resistance. However, equation (3.2) requires the mean 
tension, T, as an argument, which is itself a function of the hawser resistance. This suggests 
an iterative scheme for finding the equilibrium configuration. For a given length of hawser, 
equation (3.2) is used to compute the hawser resistance at the given speed, using the tow 
resistance alone as a first estimate of Ty. The resulting hawser drag is added to the tow 
resistance to give a new estimate of the mean tension, which is then used to recompute the 
hawser resistance. This process is repeated until convergence is reached; that is, when 
successive estimates of hawser resistance differ by less than a predetermined amount. 

Tables 3.3, 3.4, and 3.5 give representative samples of hawser resistance found by this 
method for several combinations of tow resistance and hawser scope at tow speeds of three, 
six, and nine knots. 

We can see from these results that at higher values of ship resistance, the hawser drag 
is constant. This is because the hawser catenary has reached the limit of its ability to adjust 


its geometry, and thus the drag is due primarily to the tangential drag component. 
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Table 3.3. Hawser Resistance (lbs) at 3 knots 
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Table 3.4. Hawser Resistance (lbs) at 6 knots 
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Table 3.5. Hawser Resistance (lbs) at 9 knots 
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Chapter 4 


Program Description 


In this chapter I describe an interactive computer program, TOWCALC, which imple- 
ments the theory and methods presented in Chapters 2 and 3. We begin with a brief over- 
view, then proceed to a more detailed examination. Procedures for installing TOWCALC 


are given in Appendix C; Appendix D gives a complete program listing. 


4.1 Overview 


4.1.1 Purpose 

The goal of this program is to provide tow planners and tug operators with a computa- 
tional tool to aid in their decision making with regard to ocean towing. Since many of the 
intended users are only casual computer users, it 1s important the program be as transparent 
as possible. By this I mean the user should not be required to be especially computer literate, 
beyond a basic understanding of how to use an applications program. This requires the inter- 
face between the program and the user be as "friendly" as possible, which translates to a lib- 


eral use of menus and prompts, and extensive error checking of input. 


4.1.2 Intended Users 

The intended users of this program are primarily U.S. Navy personnel involved in the 
planning and execution of open ocean tows. This includes both staff personnel and ship- 
board operators. The most likely staffs to use the program would be Combat Support Squad- 
ron staffs, Military Sealift Command (MSC) personnel, and the office of the U.S. Navy 
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Supervisor of Salvage (SUPSALV). Afloat personnel would include the Commanding 
Officer and wardroom (other officers) of U.S. Navy towing salvage vessels, and the Masters 


and mates of MSC ocean going tugs. 


4.1.3 Hardware Requirements 

TOWCALC was developed for use on IBM and compatible micro-computers running 
under IBM PC-DOS™ or Microsoft MS-DOS™ versions 3.2 and higher, equipped with a 
hard disk drive, a graphics card, and a graphics monitor. Although it will work with both 
monochrome and color monitors, color is not used. A printer is also required. 

Supported graphics devices include the IBM Color Graphics Array (CGA), Enhanced 
Graphics Array (EGA), and Hercules monochrome graphics. Better results are obtained on 


the higher resolution EGA and Hercules devices. 


4.1.4 Programming Environment 

TOWCALC is written in the C programming language, using the Microsoft Optimiz- 
ing C Compiler!" Version 5.0; graphics routines use the Halo '887M graphics kernel. C was 
chosen because it lends itself to structured programming, and because it provides complete 
control over all aspects of the computer. This is particularly important in developing a 
"friendly" user interface. 

Several of the C functions used in TOWCALC are from a library written by Doerry 


[7]; the plotting functions are modified versions of those in a library by Milgram [8]. 


4.1.5 User Interface 

The user interface is designed to make this program as simple to use as possible. 
Menus and prompts are used extensively, eliminating the need for the user to learn a com- 
mand set. Some of the important elements of this interface are described below. 


49 


The basic display is a reverse video window in the center of the screen. Program 
options are selected from popup menus; cursor keys are used to move a highlighted bar from 
choice to choice, or the number of the selection may be pressed. Pressing the escape key 
generally moves up one level in the overall menu structure. 

The user enters data by typing information on the keyboard, which is written to the 
screen in the appropriate location. Editing of data is accomplished by pressing the appropri- 
ate function key corresponding to the item, listed in a menu usually shown at the bottom of 
the display. 

Error and warning messages are displayed in a popup window which appears in the 
center of the screen; the user presses any key and the message disappears, restoring the dis- 
play beneath it. The action taken by the program in response to an error or a warning 
depends on the context of the situation. 

When prompted to respond "yes" or "no", pressing the return or enter key (7) gener- 
ates a default response, usually "yes". 

The interface functions (windows, popup menus, screen display) achieve a nearly 
instantaneous response by writing directly to video RAM (random access memory). They 


are based on a set of functions by Schildt [9]. 
4.1.6 Options 


After an initial title screen (Figure 4.1) a popup menu appears (Figure 4.2) giving the 


five main options in this program: 
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1) Select Tug 
2) Select Tow 

3) Estimate Dynamic Tension 
4) Print Report 

5) QUIT 

Figure 4.3 shows this menu structure schematically. A brief description of each option 
follows; a more detailed discussion will be given in later sections. 

Select Tug. The user selects one of four U.S. Navy tugs, sets the towline, or hawser, 
length, and sets the size and length of the chain pendant which connects the hawser to the 
tow. 

Select Tow. Here the user enters the characteristics of the towed vessel, the desired 
towing speed, and environmental parameters. The resistance of the tow and of the towline 
are estimated, using the methods of Chapter 3, and the ability of the chosen tug class to tow 
the vessel at the desired speed is evaluated. Three different types of vessels are considered: 
self-propelled ships, floating drydocks, and barges. Submarines are not included. 

Estimate Dynamic Tension. In this option, the results of Chapter 2 are implemented 
to predict the extreme towline tension. The user may elect to use the estimated mean tension 
from the previous option, or to enter the actual mean tension as measured at sea. The user 
may choose to plot (on screen) the standard tension curve, to compute and plot the effects of 
changing tow speed, or to compute and plot the effects of changing towline length. These 
last two options give the user an immediate look at how tow speed and towline length affect 

extreme tension. 

Print Report. This option produces a file containing the most recent data and results. 
If the user so chooses, a printout is made of this file. 

QUIT. This option terminates program execution and returns control to the operating 


system. 
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Figure 4.1. TOWCALC Title Screen 
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Figure 4.2. Main Program Options 
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‘oie oun 
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Select Print 
Tow Report 


Figure 4.3. Program Options Menu Structure 
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A session of TOWCALC generally proceeds sequentially from Select Tug through 
Print Report. At startup, the only valid options are Select Tug, and QUIT; choosing any 
other option will generate an error message, requesting the user to select a tug. Once a tug is 
selected, Select Tug, Select Tow, and QUIT are valid options; choosing Estimate Dynamic 
Tension or Print Report prompt the user to select a tow. Print Report may only be 
selected once the previous options have been completed. 


The following sections discuss each option in more detail. 


4.2 Tug Selection 


When this option is chosen, a second menu is displayed (Figure 4.4), giving the user 
three choices: 
1) Enter new data 
2) Edit existing data 
3) Retrieve data from file 

At the beginning of a session, only options 1) and 3) are allowed; choosing 2) generates 
an error message. Choosing option 3) will also produce an error if no tug data files have 
been previously saved. 

Enter new data. Here, the user selects one of four Navy tug classes, chooses the tow- 
line length, and sets the size and length of the chain pendant. A popup menu is used to select 
the tug class (Figure 4.5), and the remaining data is typed directly (Figure 4.6). 

The four tug classes are the ARS 38 class salvage ship, the ARS 50 class salvage ship, 
the ATS 1 class salvage ship, and the T-ATF 166 class fleet tug. Table 3.1 lists some of the 
principal characteristics of each ship class. 

Once a tug class is chosen, TOWCALC automatically assigns the hawser diameter, as 


this is a characteristic of each class (see Table 4.1). 
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Figure 4.4. Tug Options 
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Chain pendant: 
size: in 
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Figure 4.5. Selecting Tug Class 
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As data is entered, it is checked for errors and consistency. Invalid entries generate an 
error message prompting the user to try’again. Negative lengths and sizes are disallowed. 
The towline length is compared to the maximum length of hawser available on the chosen 
tug—lengths exceeding this value are not allowed. Upper bounds on chain pendant size and 


length are arbitrarily set at 20 inches and 500 feet. 









ATS] | T-ATE 166. 


Cruising Range 9400/12.5 8000/8 .0 10000/13.0 | 10000/13.0 
(nm / kts) 


Maximum Sustained 
Speed (kts) 


Shaft Horsepower 3000 4200 6000 7200 


Table 4.1. Towing Vessel Characteristics 








After the data is entered, the user has the option to edit his or her choices. The program 
asks if all data is correct: typing "yes" or pressing © confirms this is so (Figure 4.6). If not, 
typing "no" prints a menu at the bottom of the display (Figure 4.7), showing the function key 
that must be pressed to change a given item. The choices are: 

F1) Tug class 

F2) Hawser length 

F3) Chain pendant size 
F4) Chain pendant length 


Again, hawser size is set automatically. Pressing the "insert" key (Ins) quits editing. 
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Figure 4.6. Entering Tug Data 
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Figure 4.7. Editing Tug Data 
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Once all data is correct, the user is given the option to save the data to a file 
(Figure 4.8). Typing "yes" or pressing © generates a prompt for a file name (eight charac- 
ters maximum), and the data is then stored in a file on the computer's hard disk with the file 
extension ".TUG" (Figure 4.9). An error message is displayed if invalid characters are 
included in the file name (characters not allowed by DOS), or if the file could not be opened 
for some reason. The program then returns to the main menu, with Select Tow highlighted. 

Edit existing data. Once a set of tug data have been entered during a given session, 
this option may be used to modify that data. The tug data summary is immediately displayed 
(Figure 4.6), with the prompt to confirm that data is correct. As before, typing "no" allows 
editing; typing "yes" or pressing © displays the prompt to save to file. 

Retrieve data from file. Choosing this option prompts the user to enter a tug file 
name (Figure 4.10). If a tug data file of this name has been saved on the hard disk, the pro- 
gram will retrieve the data stored there. If the file does not exist or can’t be opened for some 
other reason, or if the file is not a tug file, an error message is displayed. Typing "Q" at the 
file name prompt will return the user to the tug options menu. Once data is retrieved, this 
option behaves exactly as the Edit Existing data option 

In all cases, completion of Select Tug returns the user to the PROGRAM OPTIONS 
menu, with Select Tow highlighted. 


Figure 4.11 shows the organization of this program module. 
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Figure 4.8. Save Tug File Prompt 
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Figure 4.9. Entering Tug File Name 
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Figure 4.10. Retrieve Tug Data File 
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Figure 4.11. Program Flow: Select Tug Module 
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4.3 Tow Selection 


This option accomplishes three separate functions: entering data, estimating tow and 
hawser resistance, and estimating tug capability. In this section we will look at each of the 
three functions in turn, focusing on the differences dictated by the type of tow vessel chosen. 

As in the Select Tug option, when Select Tow is chosen a second menu is displayed, 
giving the same three choices as before (Figure 4.12): 

1) Enter new data 

2) Edit existing data 

3) Retrieve data from file 
The same comments regarding error messages apply here, except that option 3) generates an 
error if no tow files have been saved. 

With each of these options, a menu is displayed to select the type of vessel to be towed 
(Figure 4.13): 

1) Self-propelled ship 
2) Floating drydock 
3) Barge 
These choices correspond to the three methods for estimating towing resistance discussed in 


Chapter 3. 


4.3.1 Entering New Data 
The process of entering data is similar for all three types of vessel, but the details differ 
because the data required to estimate resistance is different for each. Figure 4.14 shows this 


process schematically for self-propelled ships. 
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d w Í 
TOW DATA i 
DANS 


Options 


1) Enter new data 
2) Edit existing data 
3) Retrieve data file 





Figure 4.12. Tow Data Options 


[een DATA 


Select Type 


1) Self-propelled ships 
2) Floating drydocks 
3) Barges 





Figure 4.13. Select Tow Ship Type 
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Select Tow 


Enter Tow Data 


Display Table G-2; 
Select Ship Class Display Ship Data 


Use Best Use Orig. Show PROGRAM 
Speed Speed Graph OPTIONS 


Figure 4.14. Program Flow: Enter New Data for Ships 





4.3.1.1 Self-Propelled Ships 


Entering Tow Data. When this ship type is chosen, the user is prompted to enter the 


following data (Figure 4.15): 


Hull number. This is the standard Naval designation for ships. For example, 
BB 63 refers to a battleship with hull number 63; CVN 65 refers to a nuclear- 
powered aircraft carrier with hull number 65. Entry may be made in either upper 
or lower case characters; TOWCALC converts all to upper case. 

Full load displacement. This is the ship's weight, expressed in long tons of 2240 
pounds. 

Tow speed. The desired towing speed in knots. 

Wind speed. The maximum expected sustained wind speed in knots. 

Relative wind direction. The direction from which the wind is blowing with 
respect to the ship’s heading, in degrees. Wind blowing from dead ahead has a 
relative direction of zero degrees; wind blowing from dead astern, 180 degrees. 
Propeller status. A popup menu gives the choices "Locked", "Trailing", or "Re- 
moved" (Figure 4.16). 


As in Select Tug, data is checked for errors and consistency. Invalid entries generate 


an error message prompting the user to try again. Errors will be given for: 


numeral as first character in hull number, 
negative displacement, 

negative tow or wind speed, 

displacement greater than 100,000 long tons, 
tow speed greater than 12.0 knots, 

wind speed greater than 48.0 knots, 


relative wind direction greater than 360 degrees, or between 70 and 110 degrees. 
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The limit on displacement is enforced because the data base of ship types has no infor- 
mation for larger ships. Similarly, 48.0 knots wind speed is the upper limit for the added 
resistance curves. The extreme tension data base does not cover beam seas, associated with 
wind directions between 70 and 110 degrees relative, primarily because the motions of the 
tug under such conditions, particularly roll, are more restrictive than towline tensions. Tow- 
ing speed is limited to 12.0 knots partly due to safety considerations, and partly due to the 
power limitations of Navy towing vessels. 

Warning messages will be given for the following conditions: 

* displacement less than 350 long tons, or greater than 91,000 long tons but less than 
or equal to 100,000 long tons, 

* tow speed greater than 10.0 knots but less than or equal to 12.0 knots, 

e relative wind direction less than zero or between 180 and 360 degrees. 

Displacements in the warning range are not covered specifically by the Towing Manual 
data base, but reasonable estimates may be made using data for the ship listed that is nearest 
in size. Tow speeds greater than 10.0 knots are unusual, but may occur under special circum- 
stances, so TOWCALC accepts speeds in this range. Relative wind directions in the range 
given here are converted to the corresponding angle between zero and 180 degrees. 

Editing. Once the data is entered, TOWCALC prompts the user to verify that all is 
correct. As before, if all data is correct, typing "yes" or pressing + confirms that this is so. 
If not, typing "no" prints a menu at the bottom of the display, with the choices (Figure 4.17): 

Fl) Hull number 

F2) Full load displacement 

F3) Tow speed 

F4) Maximum expected wind speed 


F5, Relative wind direction 
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F6) Propeller status 
To quit editing, press Ins, . 

Selecting Ship Class. In order to make resistance predictions using the method of 
Chapter 3, TOWCALC must make use of the data provided by Table G-2 of the Towing 
Manual. This data is stored in a file on the computer, but the user must specify which ship 
class to use. TOWCALC displays a portion of this data file on the screen, and the cursor 
keys (2,+,.©, c^, PgUp), “PgDn), “Home), End> ) are used to move the highlighted bar 
from choice to choice. Pressing “+ makes the selection. Initially, TOWCALC searches the 
data file for the closest match to the hull number the user entered, and displays that ship type 
at the top of the screen (Figure 4.18). If it cannot find an exact match, it looks for a matching 
hull type, such as "DDG" or "CVN", and displays the first ship of that type at the top of the 
screen. If no match is found, the first ship type in the list is displayed. 

Along with the hull number of the ship class, TOWCALC displays a description, such 
as "GUIDED MISSILE DESTROYER", the displacement in long tons, the frontal projected 
windage area, and the projected propeller area. These are to help the user make the best 
selection possible. 

After the user selects a ship class, TOWCALC displays the following data and 
prompts the user for verification: 


e hull number entered by the user, 


ship class selected, 


actual displacement, 


tabulated displacement, 


frontal projected windage area, 


wind coefficient, 


propeller area, 
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| | 
| |TOW DATA | 
| — | 
| | 
| Hull no: | 
| 
| Full load displacement: tons | 
| | 
| Tow speed: kts | 
| 
| Max expected wind spd: kts 
| 

Rel wind direction: deg 


Propeller status: 


Please enter data. 





Figure 4.15. Entering Tow Data for Self-Propelled Ships 


—— LLL 


| TOW DATA 


‘| Hull no: DDG 51 


| 
| 
Full load displacement: 8500 tons 
| 
| 
| 
| 
| 


Tow speed: 6.0 kts 
Max expected wind spd: 25.0 kts 
Rel wind direction: m 
| Locked 
Propeller status: | Trailing 
| Removed 


Please enter dat L————————— 


||| a ee d 


Figure 4.16. Propeller Status Menu 
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( 
| TOW DATA 
E EE 


Hull no: DDG 51 


Full load displacement: 8500 ton 
Tow speed: 6.0 kts 
Max expected wind spd: 29.0 kts 
Propeller status: Tred Ling 


Fl Hull F2 Disp F3 Tow F4 Wind 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| Rel wind direction: 0.0 deg 
| 
| 
| 
| FS Rel wind F6 Prop status 


[——————- press INS to continue 
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Figure 4.17. Editing Tow Data for Ships 


nn 


map a e 








Eni: : RA E WINDAGE PROP 
CLASS DESCRIPTION Ux DISP AREA AREA 

DDG 51-53 GUIDED MISSILE DESTROYERS 8,300 6,900 254 
DDG 993-996 GUIDED MISSILE DESTROYERS 8,300 5,0006 254 
DDG 37-46 (ex DLG 6/9) GUIDED MISSILE DESTROYERS 6,150 3,0008 228 
DDG 2-24 GUIDED MISSILE DESTROYERS 4,500 2,256 176 
DDG 31-34 GUIDED MISSILE DESTROYERS 4,150 2,100 194 
DD 963-992,997 DESTROYERS 7,810 4,400 254 
DD 931-951 | DESTROYERS 4,200 2,100 194 
DD 445 CLASS DESTROYERS 3,040 1,400 134 
DD 692 CLASS DESTROYERS 3,400 1,406 158 
DD 710 CLASS DESTROYERS 3,540 1,450 158 
DE 1006 CLASS DESTROYER ESCORT 1,914 1,342 79 
PFG 7-61 GUIDED MISSILE PRIGATES 3,585 2,200 170e 
FFG 1-6 (DES) GUIDED MISSILE FRIGATES 3,426 1,715 131 
FF 1052-1097 (DE) FRIGATES 3,900 2,020 132 
FF 1040-1051 (DE} FRIGATES 3,400 1,715 331 
LCC 19-20 AMPHIBIOUS COMMAND SHIPS 18,650 7,360 220e | 
LRA 1-5 AMPHIBIOUS ASSAULT SHIPS 39,300 11,500 262 
LPH 2-12 AMPHIBIOUS ASSAULT SHIPS 18,806 6,700 155 
LPD 4-15 AMPHIBIOUS TRANSPORT DOCKS 17,000 B,350 175 
LPD 1-2 AMPHIBIOUS TRANSPORT DOCKS 14,665 8,300 175 


{Items marked with ‘se’ are best estimat 


e.) 


Use arrow keys, fpgup], [pgdn], [home], (end) to view choices. 


Figure 4.18. Selecting Ship Class 
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* curve number for hull resistance, 
* curve number for added resistance due to waves. 
If data needs editing, an edit menu is displayed, as before, with the choices (Figure 4.19): 
Fl) Actual displacement 
F2) Frontal windage area 
F3) Wind coefficient 
F4) Propeller area 
The resistance curve numbers are not subject to editing, as these are unique to the ship 
class selected. Pressing ‘Ins, ends editing. 
Saving to File. The steps to save tow data to a file are the same as in Select Tug, 


except data is stored in a file with the extension ".TOW". 


TE 
: SHIP DATA | 


Hull number: DDG 51 
Class: DDG 51-53 


Displacament 

Actual: 8500 tons 
Frontal area: 6900 sq ft 
Wind coefficient: 0.70 
Propeller area: 254 sq ft 
Hull resistance curve: 4 
Wave resistance curve: 1 


| 

| 

| 

| 

| 

| Tabulated: 8300 tons 
| 

| 

| 

| 

| Fl Disp F2 Front F3 Wind P4 Prop 
| 





: 2 
je < Press INS to continue —— 


Figure 4.19. Editing Ship Data 
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4.3.1.2 Floating Drydocks 

Entering Tow Data. When this ship type is chosen, a popup menu is displayed show- 
ing the fourteen drydock types listed in Table 3.1 (Figure 4.20). When the user makes a 
choice, TOWCALC reads the data for that drydock type from a file. Then the user is 
prompted to enter a value indicating the hull condition of the drydock: this is a scale from 
zero to ten, with zero representing a clean bottom and ten representing a bottom heavily 
fouled with marine growth (Figure 4.21). The scale value is used to compute the value of the 
coefficient f, m Table 3.1. Next, TOWCALC asks for the tow speed, wind speed, and rela- 
tive wind direction (Figure 4.22). 

Data is checked for errors and consistency, as always. Invalid entries generate error 
messages; the same criteria for ship tow data apply here. 

Estimating Displacement. The Towing Manual does not provide the displacement of 
drydocks in Table 3.1. This information is needed later, though, when matching the drydock 
against the ships in the extreme tension data base. TOWCALC estimates the displacement, 
A, as follows 


A=C, x Length x Beam x Draft 


where 


C p = C = block coefficient 


Drydock length and beam are found in Table 3.1, but the draft must be estimated using 


B 


PIE C, x Beam 


where 


B 


o JR. © Maximum section coefficient 
Beam x Draft 


T 


and B is the underwater cross-sectional area, given in Table 3.1. The block coefficient, C,, 


and the maximum section coefficient, C,, are approximated as 
C, =0.8 
C, 20.9 
Editing. Once the data is entered, TOWCALC displays a summary and prompts the 
user to verify that all is correct. If it 1s not, typing "no" prints a menu at the bottom of the 
display, with the choices (Figure 4.23): 
F1) Drydock type 
F2) Hull condition 
F3) Tow speed 
F4) Wind speed 
F5) Relative wind direction 
Pressing F1) displays the popup menu of drydocks as before; selecting a different dry- 
dock causes TOWCALLC to read a new set of coefficients from file. Pressing Tns) quits edit- 
ing, as always. 
Saving to File. The steps here are identical with those for self-propelled ships. 


Figure 4.24 shows schematically the process for entering drydock data. 
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(a | 
| SELECT DRYDOCK | 
A 


| 

| 

| 

| 

| AFDE-1 Section 256’ x 80' 
| AFDB-4 Section 240’ x 101’ 
| AFDM-1 3-Piece 496’ x 116’ 
| AFDM-3 3-Piece 488’ x 124’ 
| ARD-1 l-Piece 390’ x 60’ 
|  ARD-2 l-Piece 486’ x 71° 
| ARD-12 l-Piece 492’ x 81’ 
| AFDL-1 l-Piece 200' x 64' 
| AFDL-7 l-Piece 288' x 64' 
| AFDL-35 l-Piece 389’ x 84’ 
|  AFDL-47 l-Piece 448’ x 97! 
| AFDL-48 l-Piece  400' x 96' 
| YFD-7 3-Piece 488’ x 124’ 
| YFD-68 to 71 3-Piece 474’ x 118’ 
| 





——————— 





EE K 


Figure 4.20. Select Drydock Class 





+ 


w | 
|HULL CONDITION | 
ORION | 


Clean hull (no growth) = 0 
Average hull (moderate growth) = 5 


Fouled hull (heavy growth) - 10 


Enter hull condition: 


Please enter data. 


Figure 4.21. Entering Hull Condition 
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m E 


|TOW DATA 


| 

| 

== | 

| 

| 

| 

Tow speed: kts | 
| 

Max expected wind speed: kts | 


[ 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| Relative wind direction: deg 
| Please enter data. 
| 

| 

| 

| 

| 

| 





——— ——— 


Figure 4.22. Entering Drydock Tow Data 








— 


DATA SUMMARY | 


Name: AFDB-1 


Hull condition: 5.0 


Max expected wind speed: 25.0 kts 
Relative wind direction: 0.0 deg 


Fl Name F2 Hull F3 Tow 


| 
| 
| 
| Tow speed: 5.0 kts 
| 
| 
| 
| 
| 
| 
I F4 Wind F5 Rel 


Se n n n n a en SIA 


E | m 3 
l press INS to continue —————— 


Figure 4.23. Editing Drydock Tow Data 
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a A rn iio IA Pn Mall, 0. 


Select Tow 


Select Drydock Type; 
Retrieve Data 
Enter Hull Condition, 
Dock Tow Data 


Estimate Displacement 
Display Summary 


Compute Resistance 
Display Results 


Evaluate Tug 
Use Best Use Orig. Show PROGRAM 
Speed Speed Graph OPTIONS 


Figure 4.24. Program Flow: Enter New Data for Drydocks 





4.3.1.3 Barges 


Figure 4.25 shows schematically the process of entering barge data. 


Entering Barge Dimensions. When this ship type is chosen, the user is prompted for 


the following data (Figure 4.26): 


Barge name. This is generally the Naval hull designation, such as "YFN 89" or 
SY CODO 

Hull length. The length of the barge at the waterline, in feet. 

Beam. The beam of the barge at the waterline, in feet. 

Hull depth. The depth of the barge from the keel to the main deck, in feet. 

Draft. The draft of the barge, in feet. 

Deckhouse length. The length, in feet, of the barge’s deckhouse, if one is present, 
or of any deck cargo, if not. 

Deckhouse width. The width of the deckhouse or deck cargo, in feet. 

Deckhouse height. The height of the deckhouse or deck cargo, in feet. 

End shape. A popup menu is displayed giving the choices "Rake ended", "Ship 
ended", and "Square ended" to indicate the shape of the bow and stern of the barge 


(Figure 4.27). 


As always, data is checked for errors and consistency. Invalid entries generate an error 


message prompting the user to try again. Errors will be given for: 


numeral as first character in hull number, 

negative lengths, 

hull length greater than 1000 feet, 

beam greater than 500 feet, 

hull depth greater than 100 feet, 

draft deeper than hull depth, 

deckhouse length greater than hull length, 
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Select Tow 


Enter Barge 
Dimensions 
Enter Hull Condition, 
Barge Tow Data 


Estimate Displacement 


= 


Compute Resistance 
Display Results 
Evaluate Tug 


Use Best Use Orig. Show PROGRAM 
Speed Speed Graph OPTIONS 
Figure 4.25. Program Flow: Entering New Data for Barges 


m 





BARGE DATA 


Name or hull no: 
Hull dimensions 


— — m ——— — — — — 
! 


Length: ft 
Beam: ft 
Depth: ft 
| Draft: ft 
| Deckhouse dimensions 
| Length: SE | 
| Width: ft 
| Height: SE | 
| | 
| End shape: 
| | 
| | 
| | 





Figure 4.26. Entering Barge Dimensions 





Tb ASAS] 


BARGE DATA: 





Name or hull no: YC 1711 
Hull dimensions 


Length: 150 0 it 
Beam: 20-02 
Depth: 12.0 ft 
Draft. 8.0 ft 
Deckhouse dimensions 
Length: 20:50 EE 
Width: 30-085 
Height: 10:0 ft 
A 
End shape: Rake ended 
| Ship ended 


a eS ee Ee mm Ee. r — 


| Square ended 


Ss 





Figure 4.27. Barge End Shape Menu 
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¢ deckhouse width greater than beam, 
e deckhouse height greater than 100 feet. 
The upper bounds on dimensions are somewhat arbitrary, as barges are rarely as large as the 
maximum dimensions specified here. The intent is to catch typing mistakes by the user. 
Editing Barge Dimensions. Once the barge dimensions are entered, TOWCALC 
prompts the user for verification; typing "no" at the prompt prints the editing function key 
choices along the left side of the display, corresponding to (Figure 4.28): 
F1) Barge name 
(F2) Hull length 
(F3) Beam 
F4) Hull depth 
(F5) Draft 
(F6) Deckhouse length 
(F7) Deckhouse width 
(F8) Deckhouse height 
F9) End shape 
Any changes made are checked for errors and consistency. Pressing Ins) quits editing. 
Entering Tow Data. After the dimensions have been entered and confirmed, TOW- 
CALC prompts for the same tow data requested for drydocks: hull condition, tow speed, 
wind speed, and relative wind direction. The same error checks are made here as for drydock 
tow data. 
Editing Tow Data. Once all data have been entered, the usual prompt appears for edit- 
ing. The procedure is the same— the menu is printed at the bottom of the display, with the 


choices (Figure 4.29): 


T9 


BARGE DATA 


Fl Name or hull no: YC 1711 
Hull dimensions 


EZ Length: 15070 ft 

F3 Beam: SO.D"Eft 
| FA Depth: 12 0€ ft 
ES Draft: A.D ft 
| Deckhouse dimensions | 
| F6 Length: 50.0 ft | 
| F7 Width: 30.0 st Ml 
| F8 Height: 10302 ft. 9l 
| | 
| F9 End shape: Rake ended | 
| | 
| | 
| | 
L A 


Press INS to continue 





Figure 4.28. Editing Barge Dimensions 





| e. M 


DATA SUMMARY | 


Name or hull no: YC 1711 


Hull condition: 5.0 
Tow speed: 8.0 

kts 
Relative wind direction: 0.0 deg 


FL Name FZ Hull F3 Tow 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
;| Max expected wind speed: 2000 
| 
| 
| 
| 
/ F4 Wind F5 Rel 


, A | 
I= Press INS to continue —— ————. 


Figure 4.29. Editing Barge Tow Data 
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Fl) Barge name 
F2) Hull condition 
F3) Tow speed 
F4) Wind speed 
F5 Relative wind direction 
Any changes are checked for errors; pressing Ins, quits editing. 

Estimating Displacement. The displacement of the barge is needed for comparison 
with the extreme tension data base. TOWCALC estimates the displacement of barges using 
the same relationship as for drydocks, and using the same values of block coefficient and 
maximum section coefficient: 


A = C, x Length x Beam x Draft 


Saving to File. The steps here are identical with those for self-propelled ships and 
floating drydocks. 


4.3.2 Editing Existing Data 

Once data has been entered for a particular tow, the user may make changes by choos- 
ing the Select Tow option from the main menu, then choosing Edit existing data. The pro- 
cess is shown schematically in Figure 4.30, and since the steps are different for each ship 


type, they will each be discussed in turn. 


4.3.2.1 Self-Propelled Ships 
Here, TOWCALC immediately displays the tow data entered previously, in the same 
format. The edit prompt appears, and the menu of choices is the same as before 


(Figure 4.17). 
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Next, TOWCALC displays the ship data, and prompts for editing (Figure 4.19). Note 
there is no option to change the ship class: to do so, the user must return to the Select Tow 
option and follow the original path for entering new data for a self-propelled ship. 


Once editing is complete, the user is prompted to save the data to a file, as before. 


4.3.2.2 Floating Drydocks 
This option displays a summary of all drydock data, and prompts for editing. The edit 
menu is the same as before, and TOWCALC behaves the same as when entering new data. 


After editing, the user 1s prompted to save the current data to file. 


4.3.2.3 Barges 

TOWCALC displays a summary of barge dimensions and prompts for editing 
(Figure 4.28). After editing the dimensions, the barge tow data (hull condition, tow speed, 
etc.) are displayed and another editing prompt is given (Figure 4.29). Finally, the user is 


prompted to save data to file. 
4.3.3 Retrieving Data Files 


The procedures for retrieving tow data files are similar to those in Select Tug; Figure 


4.31 shows the steps involved for all three ship types. 


82 


Display 
Dock Tow 


Display 
Tow 
Data 





Data 


Display 


Ship 
Data 





Compute 





Compute Evaluate Compute 
Resistance Tug Resistance 


Figure 4.30. Program Flow: Edit Existing Tow Data 
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Select Tow 


File 


Get Filename; Get Filename; Get Filename; 
Retrieve data Retrieve data Retrieve data 


DISP! Display 


Tow 
Data 





Display 
Ship 


ai 


Compute 


Continue Resistance Continue 





Compute Evaluate Compute 
Resistance Tug Resistance 


Figure 4.31. Program Flow: Retrieve Tow Data File 
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If data for a particular tow have been saved to file, that data may be retrieved by choos- 
ing Select Tow at the PROGRAM OPTIONS menu, then selecting Retrieve data from 
file. After choosing the ship type, the user is prompted for a file name. An error message 
appears if invalid characters are entered, or if the file could not be opened. Additionally, 
TOWCALC checks that the file is a valid tow file (with the extension ". TOW"), and further 
checks that the data matches the specified ship type. If these conditions are not met, an error 
message is displayed and the user is prompted to try another file name. Typing "Q" returns 
the user to the tow options menu. 

Provided the tow file is valid, TOWCALC reads the data file. From this point, the 


steps are the same as in Editing existing data for each ship type. 


4.3.4 Resistance Predictions 

When all data for a given tow have been entered and edited to the user's satisfaction, 
TOWCALC computes the resistance of the tow and of the towline at the desired towing 
speed, using the methods described in Chapter 3. Since the results are presented differently 


for each ship type, we will look at each in turn. 


4.3.4.1 Self-Propelled Ships 
For this ship type, a separate summary is displayed, showing (Figure 4.32): 
e Wind resistance, 
* Wave height, 
e Added resistance due to waves, 
e Hull resistance, 
* Propeller resistance, 
e Total tow resistance, 


* Hawser resistance, 
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RESISTANCE 


| 
| 
| 
| 
Wind resistance: 21996 lbs | 
Wave height: ME 1 
Wave resistance: 15895 lbs | 
| 
Propeller resistance: 11865 lbs 
Total tow resistance: 60381 lbs 
Hawser resistance: 943 lbs 
Mean tension: 61324 lbs 


[ 
| 
| 
| 
| 
| 
| 
| 
| Hull resistance: 10625 lbs 
| 
| 
| 
| 
| 
| 
| 
| 
| 


—— Press INS to continue —————— 


Figure 4.32. Resistance Summary for Self-Propelled Ships 
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RESISTANCE 


Drydock: AFDB-1 
Table G-4 data 


fl: 0.63 
T2: 0.30 
£3: 0.70 


| 

| 

| Wetted surface area: 23000 sq ft 
| Cross sectional area 
| 

| 


Above waterline: 3800 sq ft 
Resistance 
Frictional; 9983 lbs 
Wave forming: 18468 lbs 
Wind: 9576 lbs 
Hawser: 956 lbs 
Total: 38027 lbs 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
Below waterline: 720. sq Tt | 
| 
| 
| 
| 
| 


ae i 
¿L———— Press INS to continue ———— 


Figure 4.33. Resistance Summary for Floating Drydocks 
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. Mean towline tension. 


When the user is done viewing this screen, pressing Ins, continues program execution. 


4.3.4.2 Floating Drydocks 
For drydocks, the resistance predictions are listed along with a summary of the drydock 
data (Figure 4.33). The resistance 1s broken down as follows: 
e Frictional resistance, 
* Wave forming resistance, 
e Wind resistance, 
e Hawser resistance, 
« Mean towline tension. 
Again, when the user is done viewing this screen, pressing dns, continues program 


execution. 


4.3.4.3 Barges 
For barges, a summary display similar to that for drydocks is shown (Figure 4.34). The 


resistance predictions displayed are the same as those for drydocks. 


4.3.5 Tug Evaluation 

So far, the choice of tug, tow, and tow speed have been made independently. Clearly, 
this is not possible in practice, since a given tug has a fixed engine plant, with finite power. 
Part of that power provides thrust to drive the tug through the water at a given speed, and the 
rest is available for towing. If the mean towline tension at a given tow speed exceeds the 
available towing thrust, the tug will be unable to make that speed. To address this problem, 
TOWCALC evaluates the ability of the tug to pull the tow at the given speed. 
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Figure 4.35 gives curves of available thrust versus towing speed for the four classes of 
Navy towing vessels used in TOWCALC [3]. At zero speed, the maximum installed power 
is available as thrust, the so-called bollard pull condition, while at the ship’s maximum free 
running speed, the available thrust is zero. 

After predicting the resistance of the tow, TOWCALC evaluates the tug/tow/towspeed 
combination as follows. First it computes the available thrust (also called available tension) 
by interpolating the appropriate curve in Figure 4.35 at the desired tow speed. Next, the 
"best possible" tow speed is found by iteratively computing the tow resistance and towline 
resistance at each speed (starting at zero), computing the available tension at that speed, and 
comparing the two. If the available tension is greater than the mean towline tension, the tow 
speed is increased by one knot. This continues until the available tension is less than the 
mean tension—the "best" speed is the last speed at which the available tension exceeded the 
mean tension; this speed may be greater than or less than the desired tow speed. An exact 
solution is not computed because the accuracy of the resistance prediction methods does not 


warrant such precision. 
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Available Tenslon (ibs) 


180,000 


120,000 


60,000 


RESISTANCE 


Name or hull no: YC 1711 
Data corresponding to Table G-4 


Bl: 0.63 
f2: 0.26 | 
f3: 0.60 | 


{ 

| 

| 

| 

| 

| 

| 

| 

| 

| Wetted surface area: 10700 sq ft 
| Cross sectional area | 
| 

| 

| 

| 

| 

| 

| 

| 

| 


Below waterline: 400 sq ft 
Above waterline: 600 sq ft | 
Resistance | 
Frictional: 4644 lbs | 
Wave forming: 132 lbs | 
Wind: 951 lbs | 
Hawser: 25527 ba — 3 
Total: 8279 lbs | 
| 

—— Press INS to continue - 





Figure 4.34. Resistance Summary for Barges 


T-ATF 166 





Tow Speed (knots) 


Figure 4.35. Available Tension vs. Tow Speed 
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After the best speed is found, a summary is displayed (Figure 4.36) with a popup menu 

giving the following choices: 

l) Use best possible speed 

2) Use orıginal tow speed 

3) Show graph 

4) Return to PROGRAM OPTIONS 
Choosing option 1) sets the tow speed to the best speed found by TOWCALC; choosing 2) 
retains the original tow speed. If the original tow speed is greater than the best possible 
speed, an error message is displayed to the effect that the tug has inadequate thrust at this 
speed, prompting the user to select the best possible speed option (Figure 4.37). After the 
user selects a valid speed option, TOWCALC displays a message confirming the choice 
(Figure 4.38). 

Option 3) displays the curves of available tension vs. towing speed (Figure 4.39) and 
plots points corresponding to the desired (original) tow speed and the best possible speed. 
Pressing any key clears the screen and returns the user to the tug evaluation menu, with 
option 4) highlighted. 

If options 3) or 4) are selected before the tow speed is set, an error message is displayed 
and the user is returned to the tug evaluation menu. Once the tow speed is set, the user may 
choose either option 3) or 4). Choosing 4) returns the user to the PROGRAM OPTIONS 


menu, with Estimate Dynamic Tension highlighted. 
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|TUG EVALUATION | 
A N 


Tug: ARS 50 
Tow: DDG 51 


Desired tow speed: 9.0 kts 
Mean tension: 117512 lbs 
Available tension: 79000 lbs 
Best tow speed: 7.0 kts 
Available tension: 98000 lbs 


2) Use original tow speed 
3) Show graph 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| Mean tension: 86209 lbs 
| 

| 

| 

| 

| 

| 4) Return to PROGRAM OPTIONS 
| 


| 
| 
| 
| 
| 
1) Use best possible speed | 
| 
| 
| 
| 





Figure 4.36. Tug Evaluation Summary and Options Menu 








|TUG EVALUATION | 


| 
|» 
E AAA AAA | 
| E 
‘| Tug: ARS 50 E 
e| Tow: DDG 51 | 
Desired tow speed: 9.0 kts | 
> 
ERROR 


| | 
| | 
|| Tug has inadequate pull at this speed | 
| ==> choose best speed option <== 

| | 


E Press any key to continue 


4 
| 
| 

Figure 4.37. Inadequate Tug Pull Error Message 
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|TUG EVALUATION 
ls ER 


Tug: ARS 50 | 
Tow: DDG 51 | 
Desired tow speed: 9.0 kts 


| | 
| Best possible tow speed set | 
| | 

| 


E Presa any key to continua -= = -= 


| 
| 
| 
| 
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Figure 4.38. Confirmation of Speed Selection 
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Figure 4.39. Screen Plot of Available Tension vs. Tow Speed 
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4.4 Extreme Tension 


This program option uses the results of Chapter 2 to predict the extreme towline ten- 
sion for the conditions the user has specified. Additionally, this option shows the user the 
effects of changing the two most important variables under his or her control: tow speed and 


towline length. 


4.4.1 Using the Data Base 

As described in Chapter 2, the extreme tension data base is a collection of "standard 
curve" choices for each combination of tug, tow, towing speed, wind speed, hawser length, 
and heading angle. Table 2.1 gives the range of these parameters; the inclusion of CVN 65 
data gives 4320 combinations in the data base. 

Despite its size, the data base by no means covers all possible cases. Thus, a set of 
rules is needed to guide in selecting the appropriate combination that most closely matches 
the conditions specified by the user. We turn to these rules next. 

Tug type. Although four tug classes are available in TOWCALC, for purposes of 
extreme tension calculations the ARS 50 and ATS 1 classes are sufficiently close in hydro- 
dynamic characteristics to be considered a single class. 

Tow type. Extreme tension 1s directly influenced by the magnitudes of the relative 
motions of the tug and tow. Generally, smaller vessels will be affected more at a given sea 
state than will larger vessels, and thus will have larger relative motions, with correspondingly 
higher extreme tensions. Consequently, TOWCALC selects the tow from the data base with 
the next smaller displacement, unless the tow's displacement is within 25 percent of the next 
larger vessel in the data base. This leads to a conservative estimate of extreme tension, that 


is, one with a higher extreme, but which errs on the side of safety. 
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Tow speed. Speed contributes to extreme tension in two ways. First, the encounter 
frequency of waves, for head seas, increases as speed increases, thus raising slightly the 
added resistance due to waves. Second, and far more significantly, higher tow speeds lead to 
higher mean towline tensions. This increases extreme tensions by raising the base to which 
the dynamic tension is added, and also by providing a stiffer towline system (due to reduced 
catenary depth). 

However, since the extreme tension is computed using mean tension as an argument, 
the choice of tow speed in selecting a standard curve is not a particularly sensitive parameter. 
Consequently, the following rules are used to select one of the three tow speeds: 


UDAR CUIU) =3.0 kts 


Data Base 


ASEAN =6.0 kts 


DataBase 


eS EO. kis 


Wind speed. TOWCALC uses the following rules to choose the appropriate wind 
speed in the data base: 


Bas : W =15.0 kts 


WIND? Data Base 


17.5 S Vwmp «22.5. : (Vwmp)y,5,," 20.0 kts 
22.5 &Vwwp «27 : (Vwmp)y,n,, 25-9 kts 


27.5 < Vamp $48.0 : (V = 30.0 kts 


WIND/ DataBase 
As noted in section 4.3.1.1, wind speeds above 48 knots generate wave heights outside the 
range of data in Figure 3.2. 

Hawser lengths. Since shorter hawsers result in a stiffer towline system and higher 


dynamic tensions, TOWCALC uses the next shorter length according to the following rules: 
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L « 1000 
1000 € L « 1200 


1200€ L «1500 
1500 SL «1800 
1800 € L « 2100 


L 2 2100 


ERROR 

T O tt 
LbaraBase = 1200 ft 
La = 1500 ft 
LbaraBase = 1800 ft 
L =2100 ft 


DataBase 


Open ocean tows are very rarely conducted with less than 1000 feet of hawser, as the 


danger of breaking the towline in anything but calm seas is too high. Consequently, it is rea- 


sonable to restrict hawser length in this manner. 


Heading angle. Extreme tensions are not particularly sensitive to heading angle, I, 


and so the following rules are used: 
0<1 <40 
40ST<70 
au IE < 110 
110<sT'<140 


140 <I s 180 


I psraBaze 70 deg 
passe, 7 60 deg 
ERROR 

l baraBase = 120  deg 
I pataBase 5 180 deg 


As discussed in section 4.3.1.1, heading angles between 70 and 110 degrees are not included 


in the data base because the motions of the tug (particularly rolling) are more likely to limit 


operations than is extreme towline tension. 
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[DYNAMIC TENSION | 
ER, 


Select basis for computing 
extreme tension: 


1) Estimated mean tension 
2) Actual mean tension 





Figure 4.40. Menu for Selecting Dynamic Tension Basis 








OR TENSION | 


| | 
Tug: ARS 50 
Tow: DDG 51 | 
Tabulated tow: DD 963 | 
| Actual  Tabulated | 
| Displacement: 8500 6700 

| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 


Tow speed: 7.0 6.0 
Wind speed: 25 25 
Wind direction: 0 0 
Hawser scope: 1500 1500 
Curve number: 4 

Mean tension: 86.21 kips 

Dynamic tension: 103.45 kips 

Extreme tension: 189.66 kips 


. i ` 
— Press INS to continue ee AAA 


Figure 4.41. Dynamic Tension Summary 
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4.4.2 Computing Extreme Tension 
Figure 4.40 shows schematically the process of estimating dynamic tension. When the 
user selects Estimate Dynamic Tension, a popup menu appears (Figure 4.41) with two 
choices for the basis of the calculations which follow: 
1) Estimated mean tension 
2) Actual mean tension 
The first option uses the mean tension as estimated in Select Tow. The second option 
allows the user to enter the actual mean tension as determined in a real towing situation. This 
last gives a far more accurate prediction of extreme tension, but is only useful once the tow is 
underway, and if there 1s reasonable confidence in the tension measurement. For planning 
purposes, the estimated mean tension is the only available data. If the user elects to use a 
measurement of actual mean tension, TOWCALC prompts for its entry. Values above 120 
kips are not allowed, as this 1s the largest mean tension used in computing the extreme ten- 
sion data base. 
Once the basis for calculations is chosen, TOWCALC computes the extreme tension. 
This involves searching the data base for the appropriate standard curve, and then computing 
the extreme tension using the equation for that curve, with mean tension as the argument. 
The form of the equation is 
LOS 


T,,, = 100 RR e 
TAT) MEET) 


where T is the mean tension in kips divided by 100, and f,, f,, f., and f, are coefficients deter- 


mined by the particular choice of standard curve. 


oF 


Estimate 
Dynamic Tension 
Select 
Basis 






Estimated Actual 


Mean Mean 
Tension Tension 











Enter 
Mean 
Tension 


Compute 
Extreme 
Tension 










OPTIONS 


show show Show 
Standard Speed Length 


Return to 
PROGRAM 





OPTIONS 


Curve Effects Effects 


Display Display 
Results Results 


Show Show 
Graph Graph 
Return to Return to 
OPTIONS OPTIONS 


Figure 4.42. Program Flow: Estimate Dynamic Tension 
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Figure 4.43. Dynamic Tension Options Menu 
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Figure 4.44. Screen Plot of Extreme vs. Mean Towline Tension 
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Next, TOWCALC displays a summary, showing the following (Figure 4.42): 


e tug class, 


tow selected, 


closest tow from data base, 


actual and tabulated (from the data base) 


—displacement 
—tow speed 

— wind speed 
— wind direction 
—hawser length 


standard curve number, 


mean towline tension, 


dynamic tension (extreme minus mean), 


extreme tension. 


Pressing dns, clears the screen and displays a popup menu of options (Figure 4.43): 
1) Show standard tension curve 
2) Show effects of tow speed 
3) Show effects of hawser length 
4) Retum to PROGRAM OPTIONS 
Selecting the first option plots a graph of the standard curve (Figure 4.44), marked with 
the particular values of mean tension and extreme tension. Pressing any key clears the screen 
and returns to the menu of options. The last option returns the user to the PROGRAM 
OPTIONS menu. 


We will look at the remaining two options in the next section. 
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4.4.3 Exploring Alternatives 

Of the many parameters which influence extreme towline tension, the tug operator has 
real control over only two: tow speed, and towline length. Wind and waves are obviously not 
controllable, although the prudent mariner will avoid severe weather when possible. Heading 
angle is usually dictated by the course the tug must maintain to complete the journey. Conse- 
quently, the only means at the tug operator’s disposal to reduce extreme towline tension is to 
reduce speed, or pay out hawser, or some combination of both. 

TOWCALC provides the tug operator, as well as the tow planner, the ability to see the 
effects of changing both tow speed and towline length. Large changes in either must be 
made manually, by entering the Select Tug or Select Tow options, but the effects of incre- 
mental changes may be seen by selecting Show effects of tow speed or Show effects of 
hawser length. We must note that these options use the estimated mean tension as the basis 
for their calculations; selecting the actual mean tension as the basis at the beginning of Esti- 


mate Dynamic Tension does not change this. 


4.4.3.1 Effects of Tow Speed 

When this option is chosen, TOWCALC computes the mean towline tension and 
extreme tension for tow speeds equal to the original tow speed plus or minus one knot. If the 
original speed is 1.0 knots, the lower speed is also set to 1.0 knot; if the original speed is 12.0 


knots, the upper speed is also set to 12.0 knots. 
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|DYNAMIC TENSION | 


| erc om 
Tow speed: 6.0 230 8.0 
Curve number: 4 4 3 
Mean tension: ZŁ 86.27 10028 
Dynamıc tension: 87.2 103.5 90.7 
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1) Show graph 
2) Return to OPTIONS 








Figure 4.45. Effects of Towing Speed With Options Menu 
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Figure 4.46. Screen Plot of Effects of Towing Speed 
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Once these calculations are complete, TOWCALC displays the results (Figure 4.45), 
showing: 
* tow speed, 
e standard curve number, 
e mean tension, 
* dynamic tension, 
* extreme tension. 
A popup menu gives the choices: 
1) Show graph 
2) Return to OPTIONS 
Choosing Show graph shows the standard tension curves for each speed, marked with the 
corresponding extreme tension (Figure 4.46); pressing any key clears the screen and returns 


to the OPTIONS menu. Choosing Return to OPTIONS skips the graph. 


4.4.3.2 Effects of Towline Length 

When this option is chosen, TOWCALC computes the mean towline tension and 
extreme tension for towline lengths equal to the original length plus or minus 300 feet. If the 
original length is 1000 feet, the lower length is also set to 1000 feet; 1f the original length is 
2100 feet, the upper length is also set to 2100 feet. 

Once these calculations are complete, TOWCALC displays the results, showing the 
same display as in Show effects of tow speed, with towline length substituted for tow speed 
(Figure 4.47). 

The same popup menu appears as in Show effects of tow speed, with the same func- 
tions. Figure 4.48 shows the extreme vs. mean tension curves for each length, marked with 


the corresponding extremes. 
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Extreme Tension tckips> 


Figure 4.47. Effects of Hawser Length With Options Menu 
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Figure 4.48. Screen Plot of Effects of Hawser Length 
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4.5 Printing a Report 


This option gives the user the ability to obtain hard copy output of the results of a 
TOWCALC session. When this option is chosen, a popup menu is displayed giving the fol- 
lowing choices (Figure 4.49): 

|) Send report to printer 
2) Send report to file only 
3) Return to PROGRAM OPTIONS 

The first option creates a report by writing data to a file "REPORT.OUT "), then send- 
ing the file to the printer. TOWCALC prompts the user to ensure the printer is connected 
and online before attempting to print. Choosing the second option causes TOWCALC to 
write the report data to a file, but does not send it to the printer. The third option returns the 
user to the main program menu. 

The report itself is in five sections: 

I. TUG DATA 
II. TOW DATA 
I. RESISTANCE PREDICTION 
IV. TUG EVALUATION 
V. DYNAMIC TENSION 
A sample report is given as Appendix B. Each section duplicates the appropriate data surn- 
mary shown on the screen by TOWCALC for the corresponding program option. For exam- 
ple, Section J contains the information shown in Figure 4.6; Section II duplicates Figures 


4.17 and 4.19. 
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TOW REPORT 


1) Send report to printer 
2) Send report to file only 
3) Return to PROGRAM OPTIONS 


Figure 4.49. Print Report Options Menu 
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Chapter 5 


Conclusions 


5.1 Summary 


The theory of extreme seakeeping loads in towlines makes possible a more accurate 
evaluation of towing systems than previous practice allowed, leading to safer, more efficient 
ocean towing. Reducing the uncertainty of the dynamic loads to which towlines are subject 
makes possible a corresponding reduction in the factors of safety applied to towing system 
design. When the dynamic tensions are small, this can lead to higher towing speeds, which 
in turn shortens the length of time spent at sea, reducing exposure to the elements and further 
diminishing the risk of towline failure. 

During an actual tow, the ability to predict dangerous peak tensions gives tug operators 
the opportunity to take action to reduce those peaks. The most effective means to reduce 
extreme towline tensions are to reduce speed, increase the length of the hawser, or both. 

The computer program which forms the bulk of the work in this thesis, TOWCALC, 
greatly simplifies the task of tow planning by automating the process of predicting mean and 
extreme towline tensions. By doing this in a user-friendly manner, TOWCALC gives both 
planners and operators the freedom to explore different alternatives rapidly and efficiently. 
In so doing, it will also help tug operators gain a better understanding of the actions they can 
take at sea to reduce peak dynamic tensions. 

I must emphasize, however, that TOWCALLC is not an expert system. Its primary pur- 
pose is to serve as a computational tool to aid in decision making, but not to make those deci- 


sions itself. The final evaluation of a given tow design is left, properly, to the user. 
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5.2 Further Study 


Although a great deal has been accomplished in the study of towing dynamics, there 
remains much to be done. 

An important first step is to validate the theory of extreme tensions with full-scale 
experiments. A test plan for such experiments has been developed (Christensen [10]), and a 
full-scale trial has been scheduled by the Navy. 

More research is needed to develop a theory to better predict the added resistance in 
waves at the low speeds used in towing. This is the largest source of uncertainty in the pre- 
diction of mean tension, and any improvements in accuracy would greatly improve the utility 
of TOWCALC as a planning tool. 

Expanding the current data base of extreme tension results to include more ship types, 
longer towing hawsers, and different configurations of chain and hawser would improve the 
overall accuracy of the predictions. This should be combined with a thorough sensitivity 
analysis, based on a parametric hull form, to gain better insight into the effects of hull geom- 
etry on extreme tensions. 

There are many improvements which could be made to the program TOWCALC, and 
Fleet use will inevitably suggest a number of such improvements. One important area which 
has been left out is the theory of extreme tensions for fiber rope towlines [2]; although only 
the newer classes of Navy towing vessels are able to handle large circumference synthetic 
lines, adding this capability to TOWCALC would improve the flexibility of the program. 
Despite this omission, I believe that TOWCALC in its present form is a highly useful tool. 
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Appendix A 


Extreme Tension Data for CVN 65 


Tables A.1 through A.3 give the results of the extreme tension calculations for the 


nuclear-powered aircraft carrier CVN 65 towed by ARS 38, ARS 50/ATS 1, and T-ATF 166 


respectively. 
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Appendix B 


Sample Tow Report 


This appendix contains a sample tow report produced by the Print Report option in 


TOWCALC. The data is for ARS 50 towing DDG 51. 
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------------------------------ TUG DATA -- 


Class: ARS 50 


Hawser data 


diameter: 225 in 
scope: 1500 ft 
Chain pendant data 
size: 2028 IN 
scope: SDN t 
c E e e ee S E OC TAS AN 
EE LS E G S e n TOW DATA -- 
Tow type: SHIP 
Input data 
Hull number: DDG 51 
Full load displacment: 8500 
Tow speed: 7.0 
Maximum expected wind speed: 25.0 
Relative wind direction: 0.0 
Propeller status: Trailing 
Table G-2 data 
Ship class: DDG 51-53 
Tabulated displacement: 8300 
Frontal area: 6900 
Wind coefficient: 0.70 
Propeller area: 254 
Hull resistance curve: 4 


Wave resistance curve: 


SIE ET EO N 
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kts 
kts 
deg 


tons 
sq ft 


sq ft 





e e mmm mp vm em mg mm P MEE P wd GEED SEE GEED emm emm vm vm emm emm em emm == 


Tow type: SHIP 
Wind resistance: 

Wave height: 17: 
Wave resistance: 

Hull resistance: 
Propeller resistance: 
Total tow resistance: 


Hawser resistance: 


Mean towline tenSion: 


EG 


Sop ON a Se ea Se EE 
RESTSTANCE PPREDICGTIÓON eebe es 


Et 


1848 Ds 


62220 Vs or 62 22 kips 


= ---- Sean mern A === 
EE — E en e ea I E HE E E 
Tug: ARS 50 

Tow: DDG 51 

Desired tow speed: 5.0 kts 

Mean tension at this speed: 61324 lbs 


Available tension at this speed: 114700 lbs 


*** Tug has sufficient pull at this speed *** 


Best possible tow speed: 7.0 kts 
Mean tension at this speed: 86209 lbs 
Available tension at this speed: 98000 lbs 


Option selected: 
Tow speed = 


RRUSKESIEIBESTZEOSSTELER) 
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-------------------------- SECTION V -------------------------- 


-------2--2-2----------------- DYNAMIC TENSION -------------------------- 
Tug: ARS 50 
Tow: DDG 51 
Tabulated data 

Tow: DD 963 

Displacement: 6700 tons 

Tow speed: 6 kts 

Wind speed: 25 kts 

Wind direction: O deg 

Hawser scope: 1509£t 

Curve number 

from Appendix O: 4 

Results 

Mean tension: 86.21 kips (ESTIMATED) 

Dynamic tension: TOTALE 

xtreme tension: 189.66 kips 


Note: The following results are based on predicted, 
not actual tow resistance 


Effects of tow speed: 
Tow speed (kts): 


Curve number: 
Mean tension (kips): 


Dynamic tension (kips): 
Extreme tension (kips): 


Effects of hawser scope: 
Hawser scope (ft): 
Curve number: 

Mean tension (kips): 


Dynamic tension (kips): 
Extreme tension (kips): 


ZE 


199, 


1200 


Bo 
128. 
214. 


OY CD CO 
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86072 
10325 
189.7 


1500 


86.2 
10325 
189.7 


10028 
90.7 
191.5 


1800 


86.6 
77.9 
164.5 


Appendix C 
Installing TOWCALC 


TOWCALC is provided on a single 360 kilobyte floppy disk. Included is an installa- 
tion program, "setup.exe", which performs all necessary tasks to get TOWCALC running on 
a computer. To install TOWCALC, first ensure approximately 500 kilobytes of memory are 
available on the hard disk. Insert the floppy disk in drive A, and type "A:” at the DOS 
prompt. Type "setup" and follow the instructions given by the program. When finished, 
"setup" exits with the current directory as "CXTOWCALC”. To enter TOWCALC, type 
"towcalc”. 


The source code for "setup" 1s included as part of this appendix. 
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ee QAO Y YeoYoe e e de ode de e vehe de dede je KEKE ke he be be de deci eoe be e n hà one ende | 


File: setup.c 
Author: Todd J. Peltzer 
Last update: 3 May 1989 


This file prepares the user’s computer for installation of 
TOWCALC and loads the necessary files. 


EL UAE ^ AU EE eoe eo ke deos eje e he ge je cene e LAAIE LAAI SS 


#include "stdio.h" 
#include "dos.h" 


static char *label[)] = 


{ 


); 


2 TOWING CALCULATIONS", 

d Setup Program", 

d This program prepares TOWCALC for use", 
5 on your computer. Please follow the", 
E directions thát are given . . . .", 

R Prega any key to continte....", 

d N... EL ek ABE, 

N ge eA E TRR X . a", 

M . . . Clęglining up : 
"Which graphics display does your computer have?", 
pa l1) CGA : Color Graphics, Array”, 

2) EGA : Enhanced Graphics Array", 


D 3) Hercules : Hercules graphics adapter", 
"Enter number of your graphics display: " 
K T E N T up. . 2, 


"To run TOWCALC, changè airwctor pesto”, 
5 EN TONE ARE", 
"and type TOWCALC." 


void wait(); 


main () 

{ 
POLE “out; 
int i; 


int result; 

char sys call(81]; 
char device[123]; 
int mode; 


/* print intial message on screen */ 
result = system('cls"); 

präint£ ("\n\n&s\n\n",läbel[0]); 
peimet ( te \n\yn', Wedd] (1)°) ; 

prints ("“¢s\n", label[2]); 
Feint£(®m\n",label[3]); 

PE nO Wan n VA", LaBbal[4]); 

PAGE (EsAn”", MESLIS]) : 


wait () ; 


/* create directory on hard drive */ 
sprintf (sys_call, "mkdir c:\\towcalc”"); 
printf ("\nts\n", label (6]); 

result = system(sys call); 


/* copyFazchivć*"to TOWCALC’s directory */ 

printf ("\n%s\n\n", label(7])); 

sprintf (sys_call, "copy a:towfiles.ezxe c:\\towcalc"); 
result = syStem(sys call); 
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"*"mectracc files from archive */ 
result = system("c:"); 
Ere (vs call, “ad c:\\towcalc"); 
result = system(sys call); 
sorenteisyvsucall,"towfiles") ; 
result = system(sys call); 


/* delete archive from hard drive */ 
Pantie \nes \n’, label [8]) >; 
EEUE (sys call, del towfiles.exe") ; 
peculto- system(sys call); 


/* get graphics device */ 
result = system("cls"); 
while (1) 
( 
pc (1205 1€«5; i++) 
printf("*sWMn",label[9*i]); 
scanf("S*d",&1i); 
if (i==1) 
{ 
sprintf (device, "HALOIBMG.DEV") ; 
mode=1; 
break; 
} 
else if (i==2) 
{ 
sprintf (device, "HALOIBME .DEV") ; 
mode=4; 
break; 
) 


else if (i==3) 


sprintf (device, "HALOHERC.DEV") ; 
mode=0; 
break; 

) 

else continue; 


) 


/* clean up extraneous HALO device drivers */ 
DE (1-1) 
( 

printf ("\nts\n", label[14]); 

sprintf(sys call,"del HALOIBME.DEV"); 


result = system(sys_ call); 
sprin.2(sysreall,”del HALOHERC.DEV"); 
pecu vstem(svs call); 


) 
else if (i==2) 
( 
Pan. GO woes \n", Label[14]); 
sprintf (sys_call,"del HALOIBMG.DEV") ; 


result = system(sys call); 
sprintf (sys_call,"del HALOHERC.DEV"); 
zesult =7system(sys call); 


else if (i==3) 

{ 
prince nss n, label (141); 
sprintf (sys call,"del HALOIBMG.DEV"); 


result = system(sys call); 
sprintf(sys call,"del HALOIBME.DEV"); 
result = system(sys call); 
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} 


/* create file DEVICE.DAT */ 
out=fopen("DEVICE.DAT", "w") ; 

£fprint£ (out, "ts\n%sd\n", device, mode) ; 
fclose (out); 


/* print final message */ 
result = system("cls"); 

BERE EK ininesAn", label[l15]); 
przncz(*Antsin”", label[16]); 
Peiner (Nnes\n",label[17]); 


void wait () 


( 


) 


union inkey 
ehar ceh[2]; 
ites 

I c. 


/* wait for keystroke */ 


while (1) 
i c.i = bioskey (0); /* read the key */ 
me Woven |0)) /* key is a normal key */ 
break; 
E /* key is a special key */ 
break; 


} 
} 
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Appendix D 
TOWCALC Source Code 


This appendix contains the source code for TOWCALC. There are eighteen files 
listed: one "make" file, three include files, and fourteen source files. 

The make file is used to compile the program using the Microsoft "make.exe" utility; 
TOWCALC is compiled using the "large" memory model, and a stack size of 16,384 bytes 
(hexadecimal 4000). The object code "halodvxx.obj" and the library "haloul.lib" are needed 
for the Halo graphics routines (the source code for these is not provided). 

The include files are: 

keydef.h =: auxiliary byte values for special keys 
plthead.h : function declarations for plotting routines 
video.h . : various macro definitions 


The source files are: 


main.c : controls overall program operation 

title.c : displays title screen 

tug.c : supports "Select Tug" option 

tow.c : Supports data entry for self-propelled ships 

tab.c : displays data base for selection of ship type 

dis.c : displays ship data summary; allows editing 

dock.c : supports data entry, resistance prediction for drydocks 
brg.c : supports data entry, resistance prediction for barges 
drg.c : supports resistance prediction for self-propelled ships 
pull.c : supports tug evaluation 
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Se : supports estimation of extreme tensions 


Epic : supports "Print Report" option 
plt.c : plotting functions 
tlib.c : a library of functions used throughout TOWCALC 


The make file used to compile TOWCALC is listed below. 


main.obj: Marin. c 
CIL ADT c mazn.c 


Estle.obJj: ere lec 
ed AT /6 title.c 


BrJ.ObBJ: big & 
EA AL 7/¢ brg.c 


uock.ob;j: deek.c 
cl /AL /c dock.c 


Tuer ob): tang c 
ed ALE tug.c 


tow.obj: EOW. C 
ei Ace tow.C 


Eab:ob7j: tab. Cc 
cl /AL /c tab.c 


dis.obj: dis.c 
ci (AL /cdis.c 


Erg.obj: died C 
SIA /6 drg.c 


mek. OD)? tc 
ee/2L je tlib.c 


Ext.:obj: ext.c 
cla /AL /c ext.c 


purl. oby: pull-ec 
SIL JE pull .c 


Epasbj: EPE 
CINmNAL /c rp.c 


PAE ODA: pt ve 
el, US /c plt.c 


powcajlerexe: main.Gbj title.obj brg.obj dock.obj tug.obj tow.obj tab.obj 
N BL da 5) E1IB.obj ext.obj pull.obj rp.obj plt.obj halodvxx.obj 

link /ST:0x4000 /NOD main+title+brg+dock+tug+tow+ttab+dis+drg+tlib+ext+ 
caes halcdvzx, towcalc, ,111ibc+111bfp+1ibh+em+haloul 
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f| ARCU RC ER EKER EKER ERE REREAD 


File: kyedef.h 


This header file contains definitions for the auxiliary byte values for 
the special keys on an IBM keyboard. 


PORO RON ROMO RO RO ROI NO ION e Ce NX N NNN X NXN XX XN NXN X NN N NXN NX NÑ NX NX NX X N KN KN NÑ N N XN XN Ñ XX NX KX KNX NNN X XN N / 


#define LEFT ARROW 75 
#define RIGHT ARROW 77 
#define UP ARROW 72 
Kdefine DOWN ARROW 80 


Kdefine PAGE UP 73 
#define PAGE DOWN 81 
#define HOME 71 
#define END 79 
#define ESC 27 
#define BKSP 8 
#define INSERT 82 
#define DELETE 83 


fdefine CTRL LEFT 115 
fdefine CTRL RIGHT 116 
fdefine CTRL END 1317 
tdefine CTRL_PGDN 118 
#define CTRL HOME 119 
#define CTRL PGUP 132 


#define Fl 59 
#define F2 60 
#define F3 61 
Kdefine F4 62 
Kdefine F5 63 
Kdefine F6 64 
#define F7 65 
łdefine ER 66 
tdefine F9 67 
#define F10 68 


fdefine SHIFT F1 84 
kdefine SHIFT F2 85 
kdefine SHIFT F3 86 
Kdefine SHIFT F4 87 
kdefine SHIFT F5 88 
#define SHIFT F6 89 
#define SHIFT F7 90 
tdefine SHIFT F8 91 
fdefine SHIFT F9 92 
#define SHIFT F10 93 


#define CTRL Fl 94 
#define CTRL F2 95 
tdefine CTRL F3 96 
#define CTRL F4 97 
#define CTRL F5 98 
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#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
define 
define 
define 
define 
define 
define 
define 


define 
define 
define 
define 
define 
define 
define 
define 
define 


define 
define 
define 
define 
define 
define 
define 


CTRL F6 
CTRL F7 
CTRL F8 
CTRL F9 


CTRL F10 


Armeen 
ALT_F2 
ALT_F3 
ALT_F4 
ALT F5 
ALT F6 
BLT F7 
ALT F8 
ALT F9 
ALT F10 


ALT Q 
ALT W 
ALT E 
ALT R 
ALT T 
ALT Y 
ALT U 
ALT I 
ALT O 
ALT P 


ALT A 
ALT S 
ALT D 
ALT F 
ALT G 
ALT H 
ALT J 
ALT K 
ALT L 


ALT Z 
ALT X 
Abra 
ALT_V 
ALT_B 
ALT N 
ALT M 


LE 
17 
18 
19 
20 
21 
22 
23 
24 
25 


30 
S 
32 
33 
34 
35 
36 
3) 
Ss 


44 
45 
46 
47 
48 
49 
50 


29 

100 
101 
102 
EOS 


104 
105 
106 
107 
108 
109 
1MEO 
TĘ 
112 
ae 
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f RR RR o eode Fe de de e NXN KNX XNXX XN ÑN NX X N e e e e eR OR X XN XNXX XX NX NN X X NN XX KNX XN NX XX Ñ XX N x 


File: plthead.h 


This header file contains declarations for the plotting 


routines in the file plt.c. 
Y c Y / 


short ntcl,ixO,iyO,ixl,iyl,npx,nfax,nfay,knumx, knumy,mode,icf,icb,npy, 
MEES ipby, ntiz, nt ly, na, nYyY: 


float sd op dl vyl, min, xmax, ymin, ymax, tclx,tcly, scxx, scyy, xrange, 
Maange. chic, Veic, xtx[(100), yty[(100],xt1[(100),xtu[100], xff, 
EER 1 200), yeul[ 100), x31(100) ,x3u[100], y31[100), y3u[100]; 


char eset, c)) (4), enul ; 
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f RR RO kx e e e e e e e X XN NN NN NN XN KX XN KX NXN NN NN N N KN N N NX NX N NX XNXX NN NXN X N NN N KNN NN N N N 


File: video.h 


This header file contains various macro definitions used throughout 
TOWCALC. 


XNXX XX XN NN NN NN NNN NNN XN NN XN NN NN NÑ NXN NXN XN XN NN XN / 


#define REV VID 0x70 
łdefine NORM VID 7 
łdefine BLINK REV VID OxFO 


łdefine ERROR O 
#define WARN 1 
#define BLANK 2 


#define NONE 0 
#define SINGLE 1 
define DOUBLE 2 


#define LOCKED O 
#define TRAILING 1 
#define REMOVED 2 


tdefine ARS38 0 
define ARSSO 1 
define ATS1 2 
#define TATF166 3 


define SHIP O 


define DOCK 1 
#define BARGE 2 
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f| FO e e eoe e e e e e e e e e e e e e e e e e e e e e e Ñ NNN NX XX XX X NXN XN XX XX XN KX NX X N NXN XX XX NXN NN XX X X X N 
File: main.c 
Author: Todd J. Peltzer 
Last update: 29 April 1989 


This file contains the functions which control overall program 
operation. 
Functions: 
main() 
get options () 
main menu () 
get tow menu() 
initial() 
check file() 
oe eoe e e e ee Re X NN NX NX XX NNN NNN XN XN NN XX XN XN NX NN N e e e e e ke e e e e e e e X NNN N X XX XN X N NX X N XX / 
#include "stdio.h" 
tinclude "dos.h" 
tinclude "stdlib.h" 
#include "keydef.h" /* Define aux byte values for IBM keyboard */ 
tinclude "video.h" 


static int startrow=2; 
static int startcol=20; 
static int endrow=22; 
static int endcol=60; 


static char header[) = 
{ 

"PROGRAM OPTIONS" 
p 


static char *options[(] = 

( 
"1) Select Tug N 
"2) Select Tow AE 
"3) Estimate Dynamic Tension", 
"4) Print Report E 
E») QUIT S 


static char *optionsl[) = 
{ 
"1) Enter new data Wë 
"2) Edit existing data", 
"3) Retrieve data file" 
I; 


static char *label[) = 
{ 
"TOW DATA", 
"Options" 
ys 
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char table[141) [81]; /* Table G-2 data E 


char tug[15]; /* tug class Wi 
char hull no[24]; /* hull number entered by user p 
char class[24]; /* class of ship from Table G-2 */ 
char text1(39); /* error message text strings 7 
char text2[39]; /* Vi œ " */ 
int curve; /* curve number from extreme x/ 
mnt flag( 4); /* error checking flag array x 
int type; /* tow type */ 
float tug data[5]; /* array to store tug data */ 
float tow data[5]; /* array to store tow data x 
float ship data[6]; /* array to store Table G-2 data */ 
float dock data[?7]; /* array to store drydock data */ 
float barge dataí8]; /* array to store barge data 7 
float resist dat[5]; /* resistance data */ 
float tension; /* mean towline tension */ 
float extr ten; /* extreme towline tension * / 
float barge res[6]; /* computed barge parameters E 
float tug eval(7]; /* tug evaluation results * / 
float ext data[10]; /* extreme tension results Wi 
float spd data[3) (4]; /* tow speed effects results */ 


float lgth data(3)[(4); /* hawser length effects results */ 


void get options(),main menu(),get tow menu(); 
void initial(),check file(); 


main () 

( 
nt 1, J? /* dummy counters */ 
char ch; /* dummy variable */ 


for (i=0; i<4; i++) 


flag(i]=0; /* initialize flags */ 
cls(); /* clear the screen */ 
set video(); /* set video mode */ 
śnitial(); /* check for all necessary data files */ 
title), /* display title screen */ 
cursor off(); /* turn off blinking cursor */ 


/* draw background and border */ 
draw_window(startrow, startcol, endrow, endcol, DOUBLE, REV_ VID); 


get options (0); /* display main menu, get user response */ 


f| Noe de e ee ee ede e e e e e kc e e ec oe e e oe e dece e e e e ee e e e e e he e e e e ec e ec e e e e e e e e he e ke e e e ke e X N NN XX NX NX X X 


This function controls the main program options. 
Ye e e ee e e e e e oo o oe c oe e oe e e eoe e oe eoe e oe e e oe oe e e e ee e e e oe ee e / 
void get options(start) 
int start; 
int choice; 


static int extflag; 
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/* display main program menu; get user’s choice */ 
main menu (&choice, start); 


if (choice==0) /* select tug */ 
( 
/* get tug parameters from user */ 
get tug(tug,tug data,flag); 
get options (1); 
) 
else if (choice==1) /* select tow */ 
{ 
if (!flag[0)]) 
{ 
sprintf (text1l,"A tug has not been selected"); 
sprintf (text2,"==> please select a tug <=="); 
display error (ERROR, textl,text2) ; 
cursor off(); 
get options (0); 
) 
get tow menu(&type); 
) 
else if (choice==2) /* estimate dynamic tension */ 
{ 
if (!flag(0) && !flag[1]) 
{ 
sprintf (text1, "Tug and tow have not been selected") ; 
sprintf (text2, "==> please select a tug and a tow <=="); 
display error (ERROR, textl,text2); 
cursor off(); 
get options (0); 
) 
else if (!flag[0]) 
( 
sprintf (textl,"A tug has not been selected"); 
sprintf (text2, "==> please select a tug <=="); 
display error (ERROR, textl,text2); 
cursor off(); 
get options (0); 
) 
else if (!flag[1)) 
{ 
sprintf (text1,"A tow has not been selected"); 
sprintf (text2,"==> please select a tow <=="); 
display error (ERROR, textl,text2); 
cursor off(); 
get options(1); 
) 
extreme (type, &tension,&extr ten,&curve,&extflag); 
get ext opt(extflag,type,curve,tension,extr ten,0); 
flag(3)=1; 
get_options (2); 
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else if (choice==3) /* print reports */ 


{ 


} 


if (!flagí(0] && !flag{1)) 


{ 


) 


sprintf(textl,"Tug and tow have not been selected"); 
sprintf (text2, "==> please select a tug and a tow <=="); 
display error (ERROR, textl,text2) ; 

cursor off(); 

get options (0); 


else if (!flag(0]) 


{ 


) 


sprintf(textl,"A tug has not been selected"); 
sprintf (text2,"==> please select a tug <=="); 
display error (ERROR, textl,text2); 

cursor o££(); 

get options (0); 


else if (!flag(1]) 


{ 


) 


sprintf(text1,"A tow has not been selected"); 
sprintf (text2,"==> please select a tow <=="); 
display error (ERROR, textl,text2); 

cursor off(): 

get options(1); 


else if (!flag[3]) 


( 


} 


sprintf (textl, "Dynamic tension has not been estimated"); 
sprintf (text2,'==> please select Dynamic Tension <=="); 
display error (ERROR, textl,text2) ; 

cursor off(); 

get options (2); 


report(); 


cursor off(); 


get options (4); 


else if (choice==4 || choice<0) Z%oguit */ 


( 


elsQe 
cursor on(); 
exit(0); 


f| NO che eoe ce ee ee e e ee ee ee e e e e c e ck e e e e e e c e e e oe e e e e c e ke X NN X NX XN XN NX XN XX XN XX X X X N X X 


This function displays the main program menu and allows the user to 


select an option using the cursor keys. 


X e e oe e / 
void main menu(choice,hilite) 

int *choice; 

int hilite; 
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int i,start,end; 


/* clear background */ 
clear (startrowtl1, startcolt1, endrow-1,endcol-1,REV VID); 


/* write header */ 


write header (startrow, startcol, endcol,header, REV VID); 


/* write options */ 
start = (endcol-startcol-strlen(options[3]))/2 + startcol; 
for (i=0; i<6; i++) 
{ 
write string(startrowt7ti,start,options[i],REV VID); 


/* display options with popup menu; get response */ 
*choice = popup (options, "12345",5,startrow+6, start-2,NONE,REV_VID,hilite); 


JER MRK KORE RR RR OK ROK RR OK RR RR OER RR RR ER ORE ROK RR RE RR RR OK REK RR RR RR RR RR RR RR RR RR RR RR RR EE RR EN 


This function displays the tow menu and allows the user to select an 
option using the cursor keys. 


c e e e e e e e e ee e e e e e / 


void get tow menu(shiptype) 


int *shiptype; 


{ 


int i,start,choice, status, docktype; 


int rowl=startrow+8; /* boundaries of menu */ 
int row2=startrow+15; /* P x 
int coll=startcol+5; /* * El 
int col2=startcol+35; /* M */ 
FILE *in; /* pointer to fils  */ 
unsigned char *p; /* buffer for video */ 


static char header|[) = 


{ 
"Select Type" 


Is 


static char *type[] = 


( 
"1) Self-propelled ships", 
"2) Floating drydocks Am 
"3) Barges E 
y; 


/* clear background */ 
clear (startrow+1,startcol+1,endrow-1,endcol-1,REV_VID); 


/* write header */ 


write header (startrow,startcol,endcol, label (0],REV_VID); 
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/* select enter new data, edit current data, or retrieve file */ 
start - (endcol-startcol-strlen(1abel[1]))/2 + startcol; 
write string(startrow+8, start, label[(1}],REV VID); 


start - (endcol-startcol-strlen(options1[0]))/2 * startcol; 
choice = popup (options1, "123",3,startrow+10,start-2,NONE, REV VID,0); 


if (choice==0) /* enter new data */ 
{ 
clear (startrowt5, startcol+l, endrow-3, endcol-1,REV_ VID); 
flag[1)]=0; 
) 
else if (choice==1) /* edit existing data */ 
{ 
af (!flag[1]) /* tow data does not exist */ 
{ 
sprintf (textl, "Tow data has not been set; please"); 
sprintf (text2, "enter new data or get from file"); 
display error (ERROR, textl,text2) ; 
cursor off(); 
get tow menu(shiptype); 
return; 
} 
flag[2)=0; 
} 
else if (choice==2) /* retrieve data file */ 
{ 
flag(1]=0; 
flag[2]=1; 
) 
else if (choice<0) /* ESCAPE key pressed */ 
{ 
get options (1): 
return; 


if (!flag[1]) /* tow data not set */ 
( 
/* display options with popup menu; get response */ 
clear (startrow+5, startcol+l,endrow-1l,endcol-1,REV_ VID); 
start = (endcol-startcol-strlen(header))/2 + startcol; 
write string(startrow+8, start,header, REV VID); 
start = (endcol-startcol-strlen (type[0)))/2 + startcol; 
*shiptype = popup (type, "123",3,startrow+10,start-2,NONE,REV_VID, 0); 
) /zzkkkkk*/ 
if (*shiptypezzO) /* ship */ 
( /*kkkkkk*k/ 
/* get ship tow parameters from user */ 
status=get tow data(flag,hull no,class,tow data,ship data); 
if (status<0) 
{ 
cursor off(); 
get tow menu(shiptype):; 
return; 
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} 


ue (!flag(1l]"eż !flag(2)]) /* ship data not set */ 
{ 
/* read string data from file */ 
in = fopen("tab str.dat","r"); 
read table(in,table,80); /* 80 is length of cursor highlight */ 
TR (full screen) * / 
fclose(in); 


/* display Table G-2, get user's choice, and read data */ 
display tab g2(table,ship data,hull no,class); 


cls(); 


/* display data from selected ship class */ 
display data(hull no,class,tow data,ship data); 


/* compute mean towline tension, display results & summary */ 
mean _tension(tug_data,tow_data, ship_data,hull_no, class, &tension); 


/* evaluate tug */ 
tugpull (*shiptype, &tension); 


flag(1]=1; 
get_options (2); 
return; 
[ran] 


else if (*shiptype==1) /* drydock */ 


{ 


[RRR RR Ke / 

/* get drydock type */ 
status=get _ dock (flag, «docktype, dock _data,hull_no,tow data); 
if (status<0) 
{ 

cursor off(); 

get tow menu(shiptype); 

return; 


if(!flag(1) && !flag(2]) /* tow data not set */ 


( 
/* get hull condition */ 
get hull cond(tow data); 


/* get tow speed and wind speed */ 
get dock towdata(tow data); 


/* estimate displacement for extreme tension calculations */ 
est disp(O,dock data,tow data); 


/* display summary; give edit option */ 
dock summary(&docktype,dock data,tow data,hull no); 
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/* compute resistance and display results */ 
get dock resist (hull _no,tug_ data, dock_data,tow data, &tension) ; 


/* evaluate tug */ 
tugpull (*shiptype, &tension) ; 


flag(1)=1; 
get options (2); 
return; 
) /****X*x*x*x*x/ 
else if (*shiptype==2) /* barge */ 
{ [RRKKKK KKK / 
/* enter barge data & compute resistance */ 
status=get barge resist (flag,hull_no,tug data,tow data, 
barge data, &tension); 


if (status«O) 
( 
cursor off(); 
get tow menu(shiptype); 


return; 


/* evaluate tug */ 
tugpull(*shiptype,&tension); 


flag{1)=1; 
get_options (2); 
return; 

} 

else 

{ 
get options(1); 
return; 


[BK KI II II III RII c e kk c c ok ok e o oc c e e e c c e e kc kc e e o ke c kc e e kc e e o a X 
This function checks for the presence of all necessary data 
files by repeated calls to check file() before continuing 


with program execution. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void initial() 

( 
FILE *in; 
char fname[(13); 
char device(13]; 


sprintf (fname, "DEVICE.DAT") ; 
check file(fname); 


in=fopen (fname, "r") ; 
fgets (device, 13,in); /* read graphics driver filename */ 
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fclose(in); 
check file(device); 


sprintf (fname, "HALO104.FNT"); 
check file(fname) ; 


sprintf (fname, "HALO105.FNT") ; 
check file(fname) ; 


sprintf (fname, "HALO106.FNT") ; 
check file(fname) ; 


sprintf (fname, "HALO201.FNT") ; 
check file(fname) ; 


sprintf (fname, "TAB STR.DAT") ; 
check file(fname) ; 


sprintf (fname, "TABLE.DAT") ; 
check file(fname) ; 


sprintf (fname, "DOCK STR.DAT") ; 
check file(fname) ; 


sprintf (fname, "DRYDOCK.DAT") ; 
check file(fname) ; 


sprintf (fname, "RS WVHT.DAT") ; 
check file(fname) ; 


sprintf (fname, "RH DISP.DAT") ; 
check file(fname) ; 


sprintf (fname, "TUGPULL. DAT") ; 
check file(fname); 


sprintf (fname, "CURVE.TAB") ; 
check file(fname) ; 


/*kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


This function checks for the presence of a given file. If not 
present, program execution is terminated with error code 1. 
c e c e e e ce e e e kc e e o e e e c e e e ee e e e c e e kc ok ce e X X XN XN XNXX N e e e e ec e e e ke e e ke X X XX X / 
void check file (fname) 
char *fname; 
{ 
PILE “in; 
int]; 
char text1[37)]),text2[37); 


if ( (in=fopen(fname, "r") )==NULL) 
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sprintf(textl, "Missing file %3", fname); 
sprintf (text2, "==> please reload file from disk <=="); 
display error (ERROR, textl,text2) ; 
exit (1); 
) 
fclose(in); 
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PORRA ARTO ROMO ROTOR ROO e e e e e e e N N N NX NX XX NX XN XN XX X NX N XX NX NN N NX X NX XX NX XX X N NN X N NXN X X e X + 
File: title.c 
Author: Todd J. Peltzer 
Last update: 30 April 1989 


This file contains the function title() which uses Halo 88 (tm) 
graphics to display the opening screen of "TOWCALC". 
Functions: 
title() 


ROONOKOR OROR RON OON OR OR KC CC NK oe ee ce dece ee oe fee che de e ede e je ee ee xx / 


#include "stdio.h" 


void title() 
{ 
FILE *in; 


char device[13]; /* variable for device driver name */ 


union inkey ( 
eher ch [2 


ent i; 
ker 
static char font() = "HALO201.FNT"; /* Font file name */ 
static char font2[] = "HALO104.FNT"; /* Font file name */ 
static char font3(] » "HALO105.FNT"; /* Font file name */ 
static char font4(] = "HALO106.FNT"; /* Font file name */ 
static char string(] = "SUPSALV"; /* Text string */ 
static char string2(] = "TOWING CALCULATIONS"; /* M */ 
static char string3(] = "A COMPUTATIONAL TOOL FOR"; /* 7 
static char string4(] = "OPEN OCEAN TOWING"; /* S 7 
static char string5(] = "Press any key to continue"; /* b 7 
float height = 100.0; /* Stroke text height */ 
float asp = 1.0; /* Stroke text aspect ratio */ 
int path = 0; /* Stroke text path 
float iheight; /* Inquired height of text string */ 
float width; /* Inquired width of text String */ 
float offse; /* Offset for descenders */ 
float tx,ty; /* X and y coordinate text cursor location */ 
int maxcolor; /* Maximum color variable */ 
int color; /* Color variable for screen clear */ 
int style = 1; /* Initialize the style for hatchstyle */ 
float x1,y1,x2,yy2; /* World coordinates values */ 
float vxl,vyl,vx2,vy2; /* Viewport coordinates */ 
float x,y; /* Graphics cursor position */ 
Ime Jin; /* Counter Variables */ 
int mode; /* Graphics mode */ 
int border,back; /* Viewport background and border values */ 
in = fopen("device.dat","r"); 


138 


n=fscanf(in, "%s\n", device); /* read device driver from file */ 
n=fscanf (in, "%d\n", &mode) ; /* read graphics mode from file */ 
fclose(in); 


setdev(device); /* Initialize the graphics device */ 


initgraphics( &mode ); 


ingerange (&maxcolor); /* Inquire maximum color */ 


xl = 0.0; 

yl 0.0; 

x2 1000.0; 

y2 1000.0; 
setworld(&xl,&yl,&x2,&y2); 


vxl = 0.1 
vyl = 0.1 
vx2 = 0.9; 
vy2 = 0.9 
border = maxcolor; 

back = 0; 

setviewport (&vxl, &vyl, &vx2, &vy2, &border, &back) ; 


/zzkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


* Display the first text string * 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 

setfont (font); 

setstclr(&maxcolor,&maxcolor); 

setstext(&height,&asp,&path); 

inqstsize (string,&iheight,&width,&offse); 

tx = (x2-width) /2; 

ty = 700.0; 

movtcurabs (&tx, &ty) ; 

stext (string); 


[RK KKK e e de eoe e e e e ok oe NXN XN NX XX XN NNN e e de e oe oe ke e e e de ok de oe oe oe oe N NX e e e e e oe e e kc e e de e e e oe e e e e Ye de e de 


* Display the second text string * 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
style = 1; 
setfont(font2); 
setstclr(&maxcolor, &maxcolor); 
setstext(&height,&asp,&path); 
inqstsize(string2,&iheight,&width,&offse); 
tx - (x2-width)/2; 
ty - 500.0; 
movtcurabs(&tx,&ty); 
stext (string2); 


f| Eo e de e ee dece e oe de e oe ke e de e e e oe oe de oe e e ee de occ e oe de de oe de e oe e e e e e oe e e e de oe o NXN XN XX XX XX XX XX e ke oc 


x Display the third text string * 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkwkkkkkkkkkkkkkkk/ 


style = l; 
height = 50.0; 
set font (font3); 
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setstclr(&maxcolor, &maxcolor); 
setstext(&height,&asp,&path); 

ingstsize (string3, &iheight, &width, &offse); 
tx = (x2-width) /2; 

ty = 350.0; 

movtcurabs (&tx, &ty) ; 

stext (string3); 


[RR RII oce ecce e eoe ecc e e ec e ee ec kc e e ec ce e e ec c e e N N e e e N NX XN XX NX X N NX NX XX NXN N NN X X XX X X XX X 


* Display the fourth text string x 
X XX XNXX XX XN NX NN NN NN NN NX N NX X N NY oe e de oh X X NX NY NX NX NN XX X he oe ode X N X oe Hehe oe NX XN XX X X XX XKX N x x XNXX XX / 
ingstsize (string4, &iheight, &width, &offse); 
tx = (x2-width) /2; 
ty = 250.0; 
movtcurabs (&tx, &ty) ; 
stext (string4); 


f[ FC OC e e ck e e ee oe hk e e c e e e e e e Ñ ÑN NX X Ñ X X XY XY XX XN XX XX XX XX XX XX XX NXN XX XX XX X X XX X X X 


* Display the fifth text string * 
c e oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe oe ode oe ode che oe He ode ode ode oe oe oe de ode ode N X XK X K XX XN X X XX XX XX XX XX XN n x A x X X Ok X x 
style = 1; 
height - 40.0; 
setfont (font4); 
setstclr(&maxcolor,&maxcolor); 
setstext(&height,&asp,&path); 
inqstsize(string5,&iheight,&width,&offse); 
tx = (x2-width)/2; 
ty = 75.0; 
movtcurabs (&tx, &ty) ; 
stext (string5); 


deltcur(); 


/* wait for keystroke, then exit */ 


while (1) 
{ 
c.i = bioskey (0); /* read the key */ 
31 (c.-ch[0]) /* key is a normal key */ 
{ 
break; 
} 
else /* key is a special key */ 
{ 
break; 
) 
) 
closegraphics(); /* Close graphics */ 
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MEE OE KAK ER KAR AR AR AR RR RR AR RARR RARR EER KERR ARE RR RARR REK KEER RE RAAR REK 
File: tug.c 
Author: Todd J. Peltzer 
Last update: 30 April 1989 


This file contains the functions which support the "Select Tug" 
option in the main program. 
Functions: 
get tug() 
get tug data() 
get tug file() 
get fname () 
save tug file() 
3 e coe ee e eee oe ok e oe oe e e oco e e o ee e o oc e o o e e oe oe oe e e o c e e oe e kc e je e e o e eo i e e e eoe e e e e e e e e e e Ge e / 
tinclude "stdio.h" 
#include "dos.h" 
#include "keydef.h" 
#include "video.h" 


static char *menu[] = 

{ 
"1) Enter new data e 
"2) Edit existing data", 
"3) Retrieve data file" 


}3 


static char *label1[] = 
{ 
"Options", 
"Retrieve File", 
"Enter name of tug file", 
"to retrieve (8 char max): " 


static char *label[] = 


( 
"TUG DATA", 
"Class:", 


"Hawser", 


diameter:", 
" copet”, 

"Chain pendant:", 
" esize:", 


"  scope:" 


static char *units[)] = 
( 

" in" ; 

MEE", 

un", 

"ft 1 


141 





static char *footer[) = 
( 
"Please enter data.", 
"Is all data correct? (yes/no): ", 
"Fl Class F2 Wire scope", 
"F3 Chain size F4 Chain scope", 
" Press INS to continue ", 
" Save data to file? (yes/no}: ", 
" Enter tug file name: " 


Je 


char *tug_menu[]= { 


"ARS 38 a” 
"ARS 50 ym 
"ATS 1 is 
“MATE 166" 


static char choice[4]; 
static char fname[9]; 


typedef struct 
( 
int startcol; 
int endcol; 
) data box; 


static data box input[) - 


{ 


{30,45}, /* tug */ 
135 44); /* hawser dia Wi 
{35,41}, /* hawser scope */ 
135454 14, /* chain size */ 
(35,41), /* chain scope */ 
(54,58), /* yes/no choice */ 
(49,58) /* tug file name */ 


); 


int get tug file(); 
void get tug data(),get fname(); 
void save tug file(); 


NER RARA NARRAR ARANA AAA AAA AA AAA RA A AAA AR RR 


This function prompts the user for data concerning the tug. A popup 
menu is used to select the tug class; hawser diameter is selected auto- 
matically based on this choice. Hawser scope, chain size, and chain scope 
are all input by the user. 
ce e e ee ee e ke e ee e e oe e ee / 
void get tug(tug,tug data,flag) 
char *tug; 
float *tug data; 
int *£lag; 
{ 
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FILE *in, *out; 
int startrow=2; 
int startcol=20; 
int endrow=22; 
int endcol=60; 


BRE row,col,i,start,startl, key; 

int status,choicel; 

char «tring[25); 

char fname(13]; 

char text1[39), text2[39]; /* error message text */ 


if (!flag[0)) /* tug data does not exist */ 
{ 
/* initialize data variables to zero */ 
tug[0] = NULL; 
for (i=0; i<5; i++) 
tug data[i] = 0.0; 


/* clear background */ 
clear (startrow+1, startcol+1,endrow-1,endcol-1,REV_VID); 


/* write header */ 
write header (startrow, startcol, endcol, label(0],REV_VID)*; 


/* select retrieve file or enter new data */ 
start e (endcol-startcol-strlen(label1[0)))/2 + startcol; 
write _string(startrow+8,start,label1(0],REV_VID); 


start = (endcol-startcol-strlen(menu[0]))/2 + startcol; 
choicel = popup (menu, "123",3,startrow+10,start-2,NONE,REV_VID, 0); 


if (choicel==0) /* enter new data */ 
( 
clear (startrow+5, startcol+1,endrow-3,endcol-1,REV_VID); 
) 
else if (choicel==1) /* edit existing data */ 
( 
if(! flag (0)) 
{ 
sprintf (textl, "Tug data has not been set; please"); 
sprintf(text2, "enter new data or get from file"); 
display error (ERROR,textl,text2); 
cursor off(); 
get_tug(tug,tug data, flag); 
return; 


) 


else if (choicel==2) /* retrieve data from file */ 


( 
status=get_tug_file (startrow, startcol,endrow, endcol,tug,tug_data, flag); 
if (status<0) 
{ 
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cursor off(); 
get tug(tug,tug data, flag); 
return; 


) 
else if (choicel<0) /* ESCAPE key pressed */ 
( 
get options(0); 
return; 
) 
clear (startrow+5, startcol+1,endrow-3,endcol-1,REV_VID); 


/* write data labels */ 

write _string(startrow+5,startcol+3, label[1], REV_VID); 
write string(startrowt?7,startcolt3,label[2],REV VID); 
write string(startrow*B,startcol*3,label[3],REV VID); 
write string(startrowtlO,startcolt3,label[4],REV VID); 
write string(startrowt12,startcol*3,label(5],REV VID); 
write string(startrow*13,startcolt3,label[6],REV VID); 
write string(startrowtl15,startcolt3,label[7],REV VID); 


/* write units */ 

write string(startrow*8,startcolt2tstrlen(label[3])*2*7,units[0],REV VID) ; 
write string(startrow+10,startcol+2+strlen(label(3])+2+7,units[1],REV_VID); 
write string(startrowtl3,startcolt2*strlen(label[3])*2*7,units[2],REV VID); 
write string(startrowtl15,startcolt2t*strlen(label[3])t*2*7,units[3], REV VID); 


if (choicel==1 || choicel==2) 
( 
/* display data */ 
/* tug class */ 
write string(startrowt5, startcol+2+strien(label(1))+2,tug,REV_VID); 


/* hawser diameter */ 
sprintf (string, "%6.2£",tug data(1)); 
write string(startrow+B, startcolt2+strlen (label [3))+2,string, REV_VID); 


/* hawser scope */ 
sprintf (string, "%6.0f",tug data[2)); 
write string(startrowt10, startcol+2+strlen(label(3))+2,string,REV_ VID); 


/* chain pendant size */ 
sprintf (string, "%46.2£",tug data[3]); 
write string(startrow*13,startcolt2*strlen(1label[3])*2,string,REV VID); 


/* chain pendant scope */ 

sprintf (string, "%6.0f",tug data[4)); 

write string(startrowt15, startcol+2+strlen(label[3))+2, string, REV VID); 
} 
else if (choicel==0) 
( 

/* write footer */ 

start - (endcol-startcol-strlen(footer[0]))/2 * startcol; 

write string(endrow-3, start, footer(0),REV_VID); 
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/* create normal vídeo boxes for data entry */ 

vid _box(startrow+10,startcol+2+atrlen(label(23))+2,6); 
vid box (startrowt+13, startcolt2+strien (label (3))+2,4); 
vid_ box (startrow+15, startcol+2+atrien (label (3))+2,4); 


f tette ed ARCA Bete Qe e e de ee ee che b Settle esee esu beh e e e i f 


fi get user input My 
f fth hm hh e ee e e e mh yh tud eh hh b i jehohoh huh hh h hi hh XA A 
/* get tug claas "/ 
cursor off(); 
tug data(0) -* popup(tug menu,"",4,startrow*4,startcol*15,£ZINGLE,FEV VID,0); 
if (tug_data(0) == ARS38) 
( 
sprintf (tug, "ARZ 38"); 
write_string(startrow+5,startcol+t2ż+tstrlen(labe1l(1))+2,tug,FEV VID); 
tug data(1) = 2.0; 
sprintf (string, "46.2f",tug_data([1]); 
write striny(startrow+8,startcol+2+strlen(label(3))+2,striny,kEV VID); 
) 
else if (tug data(0)] == AF350) 
( 
spríntf(tug,"ARS 50"); 
write string(startrow+5,startcol+2tstrlen(label(1))+2,tug,EEV VID); 
tug_datall) = 2.25; 
sprintf(string,"*6.2f",tug data[1]); 
write string (startrows8, startcol+2tatrien (label (3))+2,atring, FEV VID); 
} 
else if (tug data(0] == AT31) 
( 
eprintf (tug, "ATS 1"); 
write stríng(startrowt5,startcol*2*strlen(label[(1))*2,tug,REV VID); 
tug date4(1) = 2.25; 
sprintf(stríng,"*6.2f",tug data[1]); 
write string(startrow*B,startcol*2*strlen(label[(2])*2,s5tríng,FEV "ID); 
) 
else if (tug data(0) == TATF166) 
( 
sprintf(tug,"T-ATF 166"); 
write string(startrow*5,startcol*t2*strlen(label[1])*2,tug,RE7 "ID); 
tug data[(1] = 2.25; 
sprintf(string,"*6.2f",tug data[1]); 
write string(startrow+8, startcol+2+atrien(label(3))+2,string, PE VID); 
) 
else 
( 
get tug(tug,tug data,fla3); 
return ; 


/* get hawser scope */ 
get tug data(2,startrow*10,startcol*2*strlen(label[3])*2,*tug,tug data); 
for (180; 1<46; 144) 

write char(startrow*10,startcol*2*strlen(label[(3])*2«*1i,' ',BEV VID) ; 


sprintf (string, "%6.0f",tug data[2]); 
write string (startrowt10, startcolt2tstrien(label(3]) 12, string, REV VID); 


/* get chain pendant size */ 

get tug data (3,startrowtl3, startcolt2tstrien(label(3]) 42, tug, tug data); 

for (i=0; i<6; i++) 
write_char(startrow+13,startcol+2+strlen(label(3])+2+i,' ',REV_ VID); 

sprintf (string, "%6.2f",tug data(3)); 

write string(startrow+13, startcol+2+strlen(label(3))+2,string,REV VID); 


/* get chain pendant scope */ 
get tug data(4,startrowtl5,startcolt2tstrlen(label[3])*2,tug,tug data); 
for (30; 146; 1t) 

write char(startrowtl5,startcolt24strlen(1abe1([3])*2*i,' ',REV VID); 
sprintf (string, "%6.0f",tug data[4]); 
write string(startrowt15, startcol+2+strlen(label(3))+2, string, REV_VID); 


/* erase footer */ 
start = (endcol-startcol-strlen(footer(0]))/2 + startcol; 
for (i=0; i<strlen(footer[0)); i++) 

write char(endrow-3,startti,' ',REV VID); 


f KC oe e e eoe e de e e ehe ee e e e echec he e e e hee e e e e ee e e X N NN NN XN NN NX XX XNXX NN NN NN NX X / 


/* prompt user for confirmation of data; give edit option */ 
/*kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
start = startcol + 3; 

write string(endrow-3,start,footer[1],REV VID); 

vid box(endrow-3,start+strlen(footer(1]),4); 

get tug data(5,endrow-3,starttstrlen(footer[1]),tug,tug data); 


/* test if data correct */ 
if ( choice([0]!'y' && choice[0]!-'Y' && choice[0]!zNULL ) 
( 
/* erase previous message */ 
start = startcol + 3; 
for (i=0; i<strlen(footer(1J])+4; i++) 
write_char(endrow-3,start+i,' ',REV_ VID); 


/* write quit message */ 
start=(endcol-startcol-strlen(footer[4]))/2 + startcol; 
write string(endrow,start,footer[4],REV VID); 


/* write first line of edit "menu" */ 
startz(endcol-startcol-strlen(footer[2]))/2 + startcol; 
write string(endrow-3,start,footer[2],REV VID); 


/* write function key indicators in NORM VID */ 
for (i=0; i<2; itt) 
{ 
write_char (endrow-3, start+i, footer [2] [i], NORM VID); 
write_char (endrow-3, start+9+i, footer [2] [i+9], NORM_VID); 
} 
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/* write second line of edit "menu" */ 
startl=(endcol-startcol-strlen(footer(3)))/2 + startcol; 
write string(endrow-2,startl,footer[3],REV VID); 


/* write function key indicators in NORM VID */ 
for(i=0; i<2; i++) 
( 
write_char(endrow-2,startl+i, footer[3] [i],NORM_VID); 
write_char(endrow-2,startl+14+i, footer[3] [i+14],NORM_ VID); 
) 


f[ RR ee oe e e je ke e e e e e e e e e e e e e e je e e NXN XX NX NN NX XX NXN XX XN NN X XXX NX XX XX XX X / 
ut edit data */ 
[RR RRR RRR HIRI RIK III KI IK IK III e e e e e e c e ek KI IKK RK KK IKK / 
/* move cursor to Fl highlight */ 

cursor on(); 

goto xy (endrow-3, start); 


/* get user's choice */ 
while (1) 
( 
keyzget special(); 
f Fh KH x x / 
if (key==F1) /* tug class */ 
( f fesses / 
cursor off; 
tug_data(0] = popup (tug_menu, "",4,startrow+4, startcol+15, SINGLE, REV_VID,0); 
if (tug data[0] z- ARS38) 
( 
for (i=0; i<10; i++) 
write char (startrow+5, startcol+2+strlen(label(1])+2+i,' REM VID): 
sprintf (tug, "ARS 38"); 
write string(startrowt5,startcolt2tstrlen(label[1])-*2,tug,REV VID); 
tug data(1l) = 2.0; 
sprintf (string, "%6.2£",tug data[1)); 
write string(startrow+8, startcol+2+strlen (label [(3))+2,string, REV_VID) ; 


/* check data for consistency */ 
if (tug_data[2)>2100) 
( 
sprintf (textl, "Maximum hawser length for this class"); 
sprintf (text2, "is 2100 ft--please enter new length"); 
display _ error (ERROR,textl,text2); 
vid box(startrow+10,startcol+2+strlen (label(3])+2,6); 
get tug data(2,startrow*10,startcolt*2*strlen(label[3])-*2,tug,tug data); 
for (i=0; i<6; i++) 
write char(startrow+10,startcol+2+strlen(label[3])+2+i,' 'VREV VID); 
sprintf(string,"$6.0f",tug data[2]):; 
write string(startrow-*10,startcol*2*strlen(label[3])-*2,string,REV VID); 


) 


else if (tug _data(0) == ARS5O) 
{ 
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for (43-0; 1€10; d++) 
write_char(startrow+5,startcol+2+strlen(label(1])+2+i,' ",REV VID); 

spramtf(tug,"ARS 50"); 8 

write string(startrowt5S, startcol+2+strien(label(1))+2,tug,REV VID); 

tug data(1) = 2.25; E 

sprintf (string, "%6.2£",tug data([1)); 

write _string(startrowt8, startcol+2+strlen (label (3))+2,string, REV VID); 


/* check data for consistency */ 
if (tug data[2]»3000) 
{ 
sprintf (textl, "Maximum hawser length for this class"); 
sprintf (text2,"is 3000 ft--please enter new length"); 
display error (ERROR, textl,text2) ; 
vid box (startrow+10, startcol+2+strilen (label (3]) +2, 6); 
get tug data(2,startrow-t10,startcolt2tstrlen(label[3])*2,tug,tug data); 
for (120; i1<6; i++) 
write char(startrow+10,startcol+2+strlen(label(3])+2+i,' END 
sprintf (string, "%6.0f",tug data[2]); 
write _ string(startrow+1l0, startcol+t2+strlen (label[3))+2, string, REV_VID); 


} 
else if (tug _data(0) == ATS1) 
{ 
fer (im0; i«10; i++) 
write char(startrow+5,startcol+2+strlen(label(1))+2+i,' ',REV VID); 
Sprameet (tug, "ATS 1"); 
write string (startrow+5, startcol+2+strlen (label[1))+2,tug,REV_VID); 
tug_data(1] = 2.25; 
sprintf (string, "%6.2f",tug data([1)); 
write string(startrow+8, startcol+2+strien (label (3))+2,string, REV_VID); 


/* check data for consistency */ 
if (tug data[2]»3000) 
{ 
sprintf (textl, "Maximum hawser length for this class"); 
sprintf (text2,"is 3000 ft--please enter new length"); 
display error (ERROR, textl,text2) ; 
vid box(startrow+10,startcol+2+strlen (label (3])+2,6); 
get_tug_data(2,startrow+10,startcol+2+strlen(label(3])+2,tug,tug_data); 
for (i=0; i<6; i++) 
write char(startrow+10, startcol+2+strlen(label (3])+2+i,' ',REV VID); 
sprintf (string, "*6.0f",tug_data[(2]); 
write string(startrow+10, startcol+2+strien (label(3))+2, string, REV_VID); 


) 
else if (tug data[0] == TATF166) 
( 
for (1=0; i<10; i++) 
write char(startrow+5, startcol+2+strlen(label([1))+2+i,’ AM REVI VIDI, 
Sprinef tug," T-ATF 166"); 
write string(startrow+S,startcol+2+strlen(label(1])+2,tug,REV_VI1D); 
tug_data[l] = 2.25; 
sprintf (string, "%6.2f",tug_data[l]); 
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} 


write_string(startrow+8,startcol+2+strlen(label[3])+2,string,REV VID); 


/* check data for consistency */ 

if (tug_data[2]>2500) 

( 
sprintf (textl, "Maximum hawser length for this class"); 
sprintf (text2, "is 2500 ft--please enter new length"); 
display error (ERROR, textl,text2); 
vid box (startrowt10, startcol+2+strilen (label [3))+2, 6); 
get _tug_data(2,startrow+10,startcol+2+strlen(label(3])+2,tug,tug data); 
for (i=0; i<6; i++) 8 

write char (startrow+t10, startcol+2+strlen (label[3))+2+i, ’ o REVZVITDJ 

sprintf (string, "%6.0£f",tug_data[2]); 
write_string(startrow+10,startcol+2+strlen(label[3])+2,string,REV_ VID); 


} 
cursor on(); 


goto xy(endrow-3,start); 
f * ke ke de ke d kv ke ke 


else if (key--F2) /* wire scope */ 


( 


} 


/*kkkkkkkkkkkkk/ 


vid_box(startrow+10,startcolt2+strlen(label[(3])+2,6); 
get_tug_data(2,startrow+10, startcol+2+strlen(label(3])+2,tug, tug_data); 
for (i=0; i<6; i++) 

write char (startrow+t10, startcol+2+tstrlen(label(3))+2+i,’ ',REV VID); 
sprintf (string, "%6.0f£",tug data[2]); 
write _ string (startrow+t10, startcolt2+strlen(label[3))+2, string, REV_VID); 
cursor on(); 


goto xy(endrow-3,startt9); 
f Kok ek d ke e kk x / 


else if (key==F3) /* chain size */ 


{ 


) 


f / 


vid box(startrow+13,startcol+2+strlen (label (3])+2,6); 
get_tug_data(3,startrow+13,startcol+2+strlen(label(3])+2,tug,tug_data); 
for (i=0; 1<6; i++) 

write _char(startrow+13,startcol+2+strlen(label(3)])+2+i,”' ', REV VID); 
sprintf(string," *6.2f",tug data[3]); 
write string(startrow+13, startcol+2+strlen(label[3])+2, string, REV_VID); 
cursor on(); 


goto xy(endrow-2,startl); 
f Ck ne e e ek e ke ke kc e x / 


else if (key==F4) /* chain scope */ 


{ 


) 


f ke ke e e ke ke e e ke ek x 


vid box(startrowt15,startcolt2tstrlen(1abel[3])*2,6); 
get tug data(4,startrow*15,startcol424strlen(label[3])*2,tug,tug data); 
for (i1z0; i<6; itt) 

write char(startrow-*15,startcol424strlen(label[3])*2*i,' ',REV VID); 
sprintf (string, "%6.0£",tug data[4]); 
write string(startrow+15,startcol+2+strlen(label(3])+2,string,REV_VID); 
cursor on(); 


goto xy (endrow-2, start1+14) ; 
/*kkkkkkkkkkkkkkkkkk/ 


else if (key==INSERT) /* quit edit mode */ 


( 


f Ck ke ko ke je ke e ke je e e ke ke 
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/* erase menu */ 
for (i=0; i<strlen(footer(2}); i++) 


write char (endrow-3,startti, ’ “RES ED): 
for (iz0; i<strlen(footer[(3]); i++) 
write _char (endrow-2, startl+i, ’ ^,REV VID); 


/* erase message */ 
start = (endcol-startcol-strlen(footer(4]))/2 + startcol; 
for (i=0; i<strlen(footer[4)): i++) 
write_char(endrow, start+i,205,REV_VID); 
break; 


) 
cursor off(); 
} 
else /* data is correct; no editing necessary */ 
{ 

/* erase previous message */ 

start = startcol + 3; 

for (i=0; i<strlen(footer[1))+4; i++) 

write char(endrow-3,start+i,' ' ¡REV_VID); 

) 
/* prompt to save data to file */ 
start = startcol + 3; 
write string(endrow-3,start,footer(5],REV VID); 
vid box(endrow-3,starttstrlen(footer([5]),4); 
get tug data(5,endrow-3,starttstrlen(footer(5]),tug,tug data); 


if ( choice(0]!z'n' && choice(0]!z'N' ) /* save data */ 
{ 
/* erase previous message */ 
start = startcol + 3; 
for (i=0; i<strlen(footer[1])+4; i++) 
write char(endrow-3,startti,' ',REV VID); 


save tug file(startrow,startcol,endrow,endcol,tug,tug data); 


) 
flag[0]=1; /* set flag for presence of tug data */ 


N 


This function gets the user’s input for the data requested in the 
function get_tug(). Uses screen_getstring() for screen I/O. Some data 
checking is performed for each data type. 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
void get tug data(i,row,col,tug,data) 
Ant ij 
int row; 
ant col; 
char *tug; 
float *data; 
i 
int nbr; /* required arg for stofa() E 
int status; /* takes return value for stofa() */ 
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char string(24]; /* input string */ 


char text1([39], text2(39]; /* error message text * / 
inte): /* counters 2 
int length; 


char ch; 


cursor on(); /* turn on cursor * / 
goto xy(row,col); /* move cursor to start of box 2 


/* get user input */ 
screen getstrg(i,row,col,string,NORM VID,input); 


if (i»1 && i<5) 
{ 
/* check for valid numeric input */ 
for (k=0; k<strlen (string); k++) 
( 
if ( string[k]==’.’ ) ; 
else if (string[k]<’0’ || string[k]>’9’) 
( 
sprintf (text1,"Invalid entry; try again"); 
display error (ERROR,text1," "); 
vid_box (row,col, 6); 
get tug data(i, row, col, tug, data) ; 
return ; 


} 


/* if input string contains valid numbers only, convert string to float */ 
status = stofa(string, &datali),&nbr,1); 

) 

else /* izz5 */ 

{ 
strcpy (choice, string); 


f NU ede dee e e cc NXN NNN N XN NN NX e N NN NX X N XN X X X N XN XN N N XN X N X / 


/* check data for consistency a 
/ztekkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
if (i==2) /* check hawser scope */ 
{ 
if (data[i]<=0.0) 
( 
sprintf (textl1, "Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid_box(row,col,6); 
get tug data(i,row,col,tug,data); 
return ; 
) 
if (data[i]<1000) 
( 
sprintf(textl, "No extreme tension data for scopes"); 
sprintf (text2,"less than 1000’ -- please try again"); 
display error (ERROR, textl,text2); 
vid_box(row,col, 6); 
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get tug data(i, row, col,tug, data) ; 
return; 
) 
if (data[0]2-ARS38 && data[i)>2100) 
( 
sprintf(textl,"Maximum hawser length for this class"); 
sprintf(text2,"is 2100 ft--please try again"); 
display error(ERROR,textl,text2); 
vid box(row,col,6); 
get tug data(i,row,col,tug,data); 
return; 
) 
if ( (data(0]z-ARSSO || data[0)]==ATS1) && data[li)>3000) 
( 
sprintf (textl, "Maximum hawser length for this class"); 
sprintf(text2,"is 3000 ft--please try again"); 
display error(ERROR,textl,text2); 
vid box (row,col,6); 
get tug data(i,row,col,tug,data); 
return; 
) 
if (data(0]==TATF166 && data[i)>2500) 
( 
sprintf (textl, "Maximum hawser length for this class"); 
sprintf (text2,"is 2500 ft--please try again"); 
display error (ERROR, textl,text2) ; 
vid_box (row, col, 6); 
get tug data(i, row, col, tug, data) ; 


return; 
) 
} 
if (i223) /* check chain size */ 
( 
if (data[i]«O || data(i]>20.0) 


( 
sprintf(textl,"Invalid entry; try again"); 
display error(ERROR,textl1," "); 
vid box(row,co1l,6); 
get tug data(i,row,col,tug,data); 


return ; 


) 
if (i==4) /* check chain scope */ 
{ 
if (data(i)<O0) 
{ 
sprintf (textl, "Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid_box(row,col, 6); 
get _tug data(i, row, col, tug, data) ; 
return ; 
} 
else if (data[i)>500.0) 
{ 
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sprintf (textl1, "Scope of chain is unusually large"); 
sprintf (text2,"=>please check this entry<="); 
display error (WARN, text1, text2) ; 

vid box(row,col,6); 

get tug data(i,row,col,tug,data); 

return ; 


cursor off(); 
goto xy(0,0); 


f No ee e c e e ee e ec e ce c e e hc e ce e e e c e e e e e e e e e e e e e e e e c e e e e e e e N NX XX NN e x 


This function retrieves tug data from a user specified file. 
c c cce o e o e e ce c e e e oe e RO ROTOR e e ec e he e e ec e e e e e e ec e / 
get tug file(startrow,startcol,endrow,endcol,tug,tug data,flag) 
jnt startrow,startcol; 
int endrow,endcol; 
char *tug; 
float *tug data; 
int "flag; 
{ 

EXILE “ans 

char fname[13]; 

char inline [81]; 

char text1[39],text2(39]; 

int i,j,status,nbr; 

float arrayí2]; 

int start; 


start - (endcol-startcol-strlen(label1[1]))/2 + startcol; 
write string(startrowt*8,start,label1[1],REV VID); 
for (i=0; i<2; i++) /* write prompt */ 
{ 
start = startcol+3; 
write string(startrowt10+i, start, labell[i+2],REV_VID); 
} 
vid box(startrow+11,start+strlen(labell(3]),9); 
sprintf (text1, "Type 'Q' to quit"); 
start = (endcol-startcol-strlen (text1))/2 + startcol; 
write string(endrow-3,start,text1,REV_VID); 
get fname(6,0,startrowt*ll,startcolt3tstrlen(1abel11[3]), fname); 


/* check for quit option */ 
if (fname[0]zz'Q') 
( 

cursor off(); 

goto xy(0,0); 

return (-1); 


inzfopen(fname,"r"); 
if (in==NULL) 
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) 


else 


( 


sprintf(textl,"Can't open file %s", fname) ; 
display error (ERROR,textl," "); 

clear (startrow+8, startcol+1,endrow-3,endcol-1,REV_VID); 

get tug file(startrow,startcol, endrow,endcol,tug,tug data,flag); 
raturń (0); 


/* read data from file */ 


fgets(inline,81,in); 


strstrip(inline); 
Ie istrnemp(inline/;"! Tug data file",15))) 


( 


fgets(inline,81,in); 
fgets(inline,81,in); 
strncpy (tug,inline, 15); 
strstrip(tug); 


/* test for tug type, assign value to tug data[0] */ 
S6,(05(strnemp(tug, "ARS 38",6))) 
tug_data[0]=0; 
else if (!(strnemp(tug, "ARS 50",6))) 
tug_data[0]=1; 
else if (!(strncmp(tug, "ATS 1",5))). 
tug_data[0]=2; 
else if (!(strncmp(tug,"T-ATF 166",9))) 
tug data[0]23; 
else 
{ 
sprintf (textl, "Tug type in file is not in data base"); 
sprintf (text2, "==> please try again <=="); 
display error (ERROR, textl,text2) ; 
get_tug file(startrow, startcol, endrow, endcol,tug,tug data, flag); 
return (0); 
) 
/* read remaining data */ 
for (i=0; i<4; i++) 
{ 
fgets (inline, 81,in); 
fgets (inline, 81,in); 
status=stofa(inline,array, &nbr,1); 
tug data[itl]zarray[0]; 
) 


fclose(in); 


) 


else 

( 
sprintf(textl,"$s is not a tug data file!",fname); 
display error(ERROR,textl," "); 


clear (startrow+8, startcol+1,endrow-3,endcol-1,REV_VID); 
get tug file(startrow,startcol,endrow,endcol,tug,tug data,flag); 
return (1); 
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) 


return(0); 


f eh hh ee de eee de he hh e he hh KKK K KKK KK KK KKK KKK KK KA KK KK KK KK KK K K 


This function gets the filename from the user. 


nH RHR a Kh KAA AA nk ah AR / 


void get _ fname (i, type, row, col, fname) 
nnt i; 
int type; 


int row; 
int col; 
char *fname; 


( 


char text1(39),text2(39); /* error message text 


dat ),Ik=0; /* counters 

char ch; 

cursor on(); /* turn on cursor 

goto xy(row,col); /* move cursor to start of box 


/* get user input */ 
screen getstrg(i, row,col, fname, NOPM VID, input); 
strstrip(fname); 


FWechsich för quit option */ 
if (fname(0)]=="Q') 
( 
cursor off(); 
goto xy (0,0); 
return ; 


/* check for valid filename */ 


while ( (ch=fname(x)) != NULL ) 


( 
4f ( (ch>z'ę' 46 ch4»'z') || (ch»-'A' &£& ch<='7Z') 
|| (ch>='0' 44 ch<='9') || ch == ' ' || ch == '-') 


rz: 
continue; 


) 


else 


( 


sprintf(textl,"File name contains invalid characters"); 


sprintf (text2, "==> please try again <=="); 
display error (EPPOP,teztl,teztŹ); 

vid box(row,col,9); 

get fname(i,type,row,col,fname); 

return ; 


155 


d 
Ké 


J 
Lë 


if (type==0) /* tug */ 

{ 
sprintf (textl, "%s.tug", fname) ; 
slctouc(textl,text2); 
strncpy (fname, text2,12) ; 
strstrip(fname) ; 

} 

else /* tow */ 

( 
sprintf (textl, "%s.tow", fname) ; 
slctouc(textl,text2); 
strncpy (fname,text2,12); 
strstrip (fname) ; 


cursor off(); 
goto xy(0,0); 


f[. RC che ce ee he he ce e e e he hee ce ee he he he he ke e e e ce ce e e e ke e e e e e e e NX XN XN NX XX XX NXN X N X X 


This function writes the tug data to a user specified file. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void save tug file(startrow, startcol, endrow,endcol,tug,tug data) 


int startrow,startcol,endrow,endcol; 


chat *tug; 
float *tug data; 


( 


FILE *out; 
char fname[13]; 
char string[25]; 
char text1[39]; 
int start; 


/* prompt for file name */ 

start = startcol + 3; 

write string(endrow-3,start,footer[6],REV VID); 
vid box (endrow-3, start+strlen (footer[6))+3,9); 


get_ fname (6,0, endrow-3, start+strlen (footer(6])+3, fname) ; 
out=fopen (fname, "w") ; 


if (outzzNULL) 

( 
sprintf (textl, "Can't open file %s", fname); 
display error (ERROR,text1," "); 
save tug file(startrow,startcol,endrow,endcol,tug,tug data); 
return; 

) 

else 

( 
/* write data to file */ 
f5rinEf(sut."! Tug data file\n"); 
fperneciout,”! Tug class: \n") ; 
FprintLiout, "$Ss\n",tug); 
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fprintf (out,"! Hawser diameter (inches) :\n"); 
Seeints (string, "t—.2f\n",tug data[1)); 
fprintf (out, "%s", string); 


fprintf(out,"! Hawser scope (feet) :\n"); 
sprintf (string, "%-.1f\n",tug data([2]); 
fprint£ (out, "42", atring); 


fprintf(out,"! Chain pendant diameter (inches) :\n"); 
sprintf (string, "t-.2f\n",tug_data(3]); 
Fprinté£ (out, “%ts",string) ; 


fprintf(out,"! Chain scope (feet) :\n"); 
sprintf (string, "%-.2f\n",tug data[4]); 
fprintf (out, "4s", string)? 

} 


fclose(out); 
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EE ee OK NKR KNOWN ROROK KK Ke e ede e tok ke eo ok Choc ke hec fe e fc e e v eoe UN ER e de v 
File: tow.c 
Author: Todd J. Peltzer 
Last update: 17 April 1989 


This file contains functions which support the option "Select Tow" 
in the main program. 
Functions: 
get tow data() 
get data() 
get ship file() 
save ship file() 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


#include "stdio.h" 
#include "dos.h" 

#include "keydef.h" 
tinclude "video.h" 


static char *label[] = 

{ 
"TOW DATA", 
Hall nos", 
"Full load displacement:", 
"Tow speed:", 
"Max expected wind spd:", 
"Rel wind direction:", 
"Propeller status:" 


py 


static char *labell[) = 
( 
“Options, 
"Retrieve File", 
"Enter name of tow file", 
"to retrieve (8 char max): " 


E 


static char *units(] = 
{ 

"tons", 

"kesi, 

"kts", 

11 deg" 
ke 


static char *footer(] = 

{ 
"Please enter data.", 
"Is all data correct? (yes/no): ", 
"Fl Hull F2 Disp F3 Tow F4 Wind", 
"F5 Rel wind F6 Prop status", 
" Press INS to continue ", 
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" Save data to file? (yes/no): ", 
" Enter tow file name: " 


ys 


char *menu()= ( 
"Locked  ", 
Trailing", 
"Removed " 


y: 
static char choice(4]; 


typedef struct 
{ 


int startcol; 
int endcol; 
) data box; 


static data box input(] - 


{ 


1327557, /* hull no * / 
(47,54), /* displacement */ 
(47,54), /* tow speed */ 
(47,54), /* wind speed * / 
{47,54}, /* wind direction */ 
{54,58}, /* yes/no choice */ 
{49,58} /* tow file name */ 


e 
void get data(),save ship file(); 


PORRO RO FORO FORO ROO RO FORO RO PORO ROO ROO RO FORO RO ROMO ROO RO RO FORO c e kc kk X XX NN NX NN NX NN NN NX X NN kc Ok e e NN NX XN NN X X X X X X 


This function prompts the user for data concerning the tow. Input items 
are: hull number, displacement, tow speed, wind speed, relative wind 
direction, and propeller status. A popup menu is used to select propeller 
status. 

c cc / 
get tow data(flag,hull no,class,tow data,ship data) 
ine “flag: 
char *hull no; 
char *class; 
float *tow data; 
float *ship data; 
( 
int startrow=2; 
int startcol=20; 
int endrow=22; 


int endcol=60; 
int row, col, i, start, startl, key; 
int status, choicel; 


char string(25),text1(39),text2 [39]; 


if (!flag(1]) /* tow data does not exist */ 
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/* initialize data variables to zero */ 
hull no[0] = NULL; 
for (1=0; 1<5; i++) 

tow_data(i] = 0.0; 


/* clear background */ 
clear (startrow+1, startcol+1,endrow-1,endcol-1,REV_ VID); 


/* write header */ 
write header(startrow,startcol,endcol,label[0],REV VID); 


if (!flag(1] && !flag(2]) /* enter new data */ 
( 
clear (startrow+5, startcol+1,endrow-3,endcol-1,REV_VID); 
} 
else if (flag(1) && !flag(2]) ; /* edit existing data */ 
else if (flag[2)) /* retrieve data from file */ 
( 
status=get_ship_file(startrow,startcol,endrow,endcol,hull_no,class, 
tow data, ship data, flag); 
if (status<0) 
( 
cursor_off(); 
£flag[2]=0; 
return (71); 


clear (startrow+5, startcol+1,endrow-3,endcol-1,REV_VID); 


/* write data labels */ 
for (row=startrow+5,i=1; i<=6; i++,row += 2) 
write string(row, startcol+3,label(i],REV_VID); 


/* write units */ 
for (row=startrow+7,i=0; i<4; i++, row += 2) 
write string(row,endcol-5,units[i],REV VID); 


if (flag[1] || flag(2]) 
( 

/* display data */ 

/* hull number */ 

write string(startrowt5,startcolt2*strlen(label[1])-*2,hull no,REV VID); 


/* displacement */ 

sprintf (string, "%6.0£",tow_data[0]); 
write_string(startrow+7,startcol+2+strlen(label[2])+2,string,REV_VID); 
/* tow speed */ 

sprintf (string, "%6.1£",tow_data[l]); 


write _string(startrow+t9, startcolt2+strlen (label [3]) +15, string, REV_VID); 


/* wind speed */ 
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sprintf (string, "%6.1f£",tow data[(2)); 
write_string(startrow+11, startcol+2+strlen(label(4])+3, string, REV VID); 


/* relative wind direction */ 
sprintf(string, "$6.1f",tow data[3]); 
write string(startrow+13, startcol+2+strlen(label([5])+6,string, REV VID); 


/* prop status */ 
if (tow data[4] --2 LOCKED) 
( 
write string(startrow+15, startcol+2+strlen(label(6))+10,menu(0],REV_ VID); 
} 
else if (tow data[4] -- TRAILING) 
( 
write string(startrowt15,startcol424*strlen(label[6])-*10,menu[1],REV VID); 
} 
else if (tow_data[4] == REMOVED) 
{ 
write string(startrow*15,startcol*2*strlen(label[6])-*10,menu[2],REV VID); 
) 
} 
else if (!flag[1)) 
{ 
/* write footer */ 
start = (endcol-startcol-strlen (footer[(0)))/2 + startcol; 
write _string(startrow+17, start, footer [0], REV_VID); 


/* create normal video boxes for data entry */ 

vid box (startrow+t5, startcol+2+strlen(label[1])+2, 23); 
vid box (startrowt7,startcolt2tstrien(label(2]) 12,7); 
vid_box(startrow+9,startcol+2+strlen(label(3])+15,7); 
vid box(startrow-tll,startcolt2t*strlen(label[4])43,7); 
vid box(startrow+13,startcol+2+strlen(label (5])+6,7); 


f| RC / 
/* get user input Wi 
f RC ee eoe e e e ee ce e e e e 2.2 2 2.2.2.2 2 2 2 2 2 e e e e e e e e e e e e e e e e e N N NN N N XX XN XX x X / 
“get hull no */ 
get_data(0,startrow+5,startcol+2+strlen(label[1])+2,hull_no,tow data); 
for (i=0; i<23; i++) 

write char(startrowt5,startcolt2*strlen(label[1])*2*i,' ',REV VID); 
write string(startrowt5,startcolt2tstrlen(label[1])*2,hull no,REV VID); 


/* get displacement */ 

get_data(1l,startrow+7,startcol+2+strlen(label[2])+2,hull no,tow data); 

for (iz0O; i«7; i++) 
write_char(startrow+7,startcol+2+strlen(label[2])+2+i,' REV VID); 

sprintf (string, "%6.0£",tow data[0])); 

write string(startrowt7, startcol+2+strlen (label (2])+2,string, REV_VID); 


/* get tow speed */ 
get_data(2,startrow+9,startcolt2+strlen(label(3])+15,hull_no,tow data); 
for (1=0; i<7; i++) 

write char(startrow+9, startcol+2+strlen (label ([3])+15+i, ’ ^,REV VID); 
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sprintf (string, "%6.1f£", tow data(1)); 
write string(startrowt+9, startcol+2+strlen (label (3))+15,string, REV VID); 


/* get wind speed */ 
get_data(3,startrow+11, startcol+2+strlen(label(4])+3,hull no,tow data); 
for (i=0; i<7; i++) 8 

write char(startrow+11,startcol+2+strlen(label(4])+3+i,' BEWENTD); 
sprintf (string, "%6.1f£",tow data(2)); 
write string(startrowt+tll, startcol+2+strlen(label(4])+3,string, REV _ VID); 


/* get relative wind direction */ 
get data(4,startrowt13,startcolt2tstrlen(label(5])*6,hull no,tow data); 
for (i0; 7; i++) 

write char(startrow+13, startcol+2+strlen(label(5))+6+i, ’ ',REV VID); 
sprintf(string,"$6.1f",tow data(3]); 
write string(startrow+13, startcol+2+strlen(label(5])+6, string, REV_VID); 


/* get propeller status */ 
tow_data(4) = popup(menu, "LTR", 3, startrow+t13, endcol-13, SINGLE, REV_VID,0); 
if (tow _data(4] == LOCKED) 
{ 
write string(startrowt15,startcol42tstrlen(label[6])-*10,menu([O],REV VID); 
) 
else if (tow data[(4] == TRAILING) 
( 
write string(startrowt15,startcolt2tstrlen(label(6])4*10,menu(1],REV VID); 
) 
else if (tow data[4] -- REMOVED) 
( 
write string(startrowt15,startcolt2tstrlen(label[6])-*10,menu(2],REV VID); 


/* erase footer */ 
start = (endcol-startcol-strlen(footer(0]))/2 + startcol; 
for (i=0; i<strlen(footer[0]); i++) 

write char(startrowt17,startti,' ',REV VID); 


/*tkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkzkkkkkkkk/ 


> prompt user for confirmation of data; give edit option a 
/*tkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
start = startcol + 3; 

write string(startrowt17, start, footer(1],REV_VID); 

vid _ box(startrow+17,start+strlen(footer(1)),4); 

get data(5,startrowt1l7,starttstrlen(footer([1]),hull no,tow data); 


/* test if data correct */ 
if ( choice(0]!='y" ££ choice(0]!='Y' ££ choice(0] !=NULL ) 
{ 
/* erase previous message */ 
start = startcol + 3; 
for (i=0; i<strlen(footer[1])+4; i++) 
write char(endrow-3,startti,' ',REV VID); 
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/* write quit message */ 
start=(endcol-startcol-strlen(footer(4]))/2 + startcol; 
write string(endrow, start, footer(4],REV VID); 


/* write first line of edit "menu" */ 
start=(endcol-startcol-strlen(footer[2]))/2 + startcol; 
write string(endrow-3,start,footer[2],REV VID); 


/* write function key indicators in NORM VID */ 

for (i=0; i«2; i++) 

( 
write char(endrow-3,startti,footer[2][i],NORM VID); 
write char (endrow-3, start+8+i, footer(2] [i+8]),NORM VID); 
write char (endrow-3, start+16+1i, footer [2] [(i+16]),NORM VID); 
write char (endrow-3, start+23+1i, footer (2) (i+23],NORM VID); 


/* write second line of edit "menu" */ 
startl-(endcol-startcol-strlen(footer[3]))/2 * startcol; 
write string(endrow-2,startl,footer[3],REV VID); 


/* write function key indicators in NORM VID */ 
for (i=0; i<2; i++) 
{ 
write char (endrow-2,startliti, footer([3] [i], NORM VID); 
write char(endrow-2,start1+12+i,footer(3] (1+12] , ,NORM_VID) ; 


f| RC Ce / 
GC edit data GE 
Jf RC / 
/ * move cursor to F1 highlight */ 

cursor_on(); 

goto_xy(startrow+17,start); 


/* get user's choice */ 
while (1) 
{ 
keysget special(); 
f foede / 
if (key==F1) /* hull number */ 
{ [RR RK dede dee e ex x / 
vid _box(startrow+5,startcol+2+strlen(label (1])+2,23); 
get data(0,startrowt5,startcolt2tstrlen(label[1])*2,hull no,tow data); 
for (40; AR23; i++) 
write char(startrowt5,startcolt2*strlen(label[1])-*2*i,"' (REV VID); 
write string(startrowt5,startcolt2*strlen(label[1])*2,hull no,REV VID); 
cursor on(); 
goto xy (endrow-3,start); 


) f NN e e e ee de k e x / 


else if (key==F2) /* displacement */ 


{ f à e e e e e x / 


vid_box(startrow+7,startcol+2+strlen(label(2])+2,7); 
get _data(1,startrow+7,startcol+2+strlen(label[2])+2,hull_no,tow_data); 
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for (i=0; i<?7; i++) 
write_char(startrow+7,startcol+2+strlen(label[2])+2+i,' ',REV VID); 

sprintf (string, "%6.0£",tow_data[0]); " 

write string(startrowt],startcolt2tstrien(label(2]) 42, string, REV VID); 

cursor_on(); 

goto xy (endrow-3, start+8) ; 


) f e e e e e ek / 

else if (key==F3) /* tow speed * / 

( f RR e e ee e e e x / 
vid_box(startrow+9,startcol+2+strlen(label(3])+15,7); 
get data(2,startrow*9,startcolt2*strlen(label(3])*15,hull no,tow data); 
for (i=0: i<7: i++) 

write char (startrow+9, startcol+2+strlen (label (3) )+15+i, ’ "REV VID), 

Sprint? tstring, "%6.1£", tow data (1)); 
write string(startrowt9, startcol+2+strlen(label (3))+15, string, REV VID); 
cursor on(); 


goto xy (endrow-3, start+16); 


} [RK KK KKK RR KK / 
else if (key==F4) /* wind speed */ 
( f NRI kk NXN NN XN X N / 


vid_ box (startrow+11, startcol+2+strlen (label (4))+3,7); 
get_data(3, startrow+11, startcol+2+strlen(label(4))+3,hull_no,tow data); 
for (i=0; 1<7; i++) 

write char (startrowt1ll, startcol+2+strlen(label(4))+3+i, ’ ",REV_VID); 
sprintf (string, "%6.1f",tow_data[2]); 
write string(startrow+11,startcol+2+strlen(label(4])+3,string,REV_VID); 
cursor on(); 
goto xy (endrow-3, start+23); 


) [RAKKKKKKK KK KKK KK / 
else if (key==F5) /* rel wind dir */ 
{ /*zkkkkkkkkkkkkkkk/ 


vid_box(startrow+13,startcol+2+strlen(label[5])+6,7); 
get_data(4,startrow+13, startcol+2+strlen(label[5])+6,hull no,tow data); 
for (i=0; i<7; i++) 

write char(startrowt13,startcolt2*strlen(label(5])*6*i,' ',REV VID); 
sprintf (string, "%6.1£", tow data([3]): 
write string(startrow+13,startcol+2+strlen(label(5])+6,string,REV_VID); 
cursor on(); 
goto xy(endrow-2,startl); 


) f FN / 
else if (key==F6) /* prop status */ 
( [RK KR KK KK IK / 


cursor off(); 
tow data(4) = popup (menu, "LTR", 3, startrow+13, endcol-13, SINGLE, REV VID,0); 
if (tow _data(4] == LOCKED) 
{ 
for (i120; i<=strlen(menu(2)); i++) 
write char (startrow+15, startcol+2+strlen(label[6])+10+i,’ ^,REV VID); 
write string(startrow*15,startcol*2*strlen(label[6])-*10,menu[0],REV VID); 


else if (tow data(4] -- TRAILING) 


( 
for (i=0; i<=strlen(menu[2)); i++) 
write char (startrowt15, startcolt+2+strlen(label (6) )+10+i, ’ ',REV VID); 
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write string(startrowtl5,startcol*2*strlen(label[6])*10,menu[1],REV VID); 


else if (tow data[4] == REMOVED) 


for (i=0; i<=strlen(menu[2)); i++) 


write char(startrow+15,startcol+2+strlen(label[6])+10+i,' 1 REV SD)"; 
write_string(startrowt15, startcol+2+strlen(label[6))+10,menu[2),REV_ VID); 


) 


cursor on(); 
goto xy (endrow-2, start1+12); 


} f NO e ke de e dee e e e x / 
else if (key==INSERT) /* quit edit */ 
{ f AG e de e e ee e x 


/* erase menu */ 
for (i=0; i<strlen(footer([(2)); i++) 


write char (startrow+17,start+i,”' ',REV VID); 
for (i=0; i<strlen(footer(3]); i++) 
write char(startrow+18,startl+i,' ',REV VID); 


/* erase message */ 
start - (endcol-startcol-strlen(footer[4]))/2 * startcol; 
for (i=0; i<strlen(footer[4)); i++) 
write char(endrow, start+i,205,REV_VID); 
break; 


) 


cursor off(); 


) f NCC de eoe dec e ke ek dee de eee de ek / 
else /* editing not required */ 
( [ROR IORI IOI] 


/* erase previous message */ 
start = startcol + 3; 
for (i0; i<strlen(footer[1))+4; i++) 
write char(endrow-3,start*ti,' ',REV VID); 
) 
return. (0); 


f KR ee ee e oe e e e e ec de e de de he hehe de e de e khe de e e e ck oe oe e e e e ee e he he e ee e de he e e e ke oe e X NXN XX NÑ NN NN N Ñ NN N N 


This function gets the user's input for the data requested in the 
function get tow data(). Uses screen getstring() for screen I/O. Some data 
checking is performed for each data type. 


c cc cce e e e e e oe e e e e e oe e oe oe e e e e ee e oe e e ee he ee he oe ee oe e e e c e e e e e ee e e e e e e e e e e e e e e e e e e e e ke OE RR 


void get data(i,row,col,hull no,data) 
int i; 


int row; 


int col; 


char “huid nes 
float *data; 


( 


int nbr; /* required arg for stofa E 
int status; /* takes return value for stofa */ 
char string[24); /* input string *7 
char text1(39], text2[39]; /* error message text */ 
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int J, k? /* counters 
int length; 


cursor_on(); /* turn on cursor 


goto_xy(row,col); /* move cursor to start of box 


/* get user input */ 
screen getstrg(i,row,col,string,NORM VID,input); 


if (i==0) 


{ 


/* convert input string to upper case; output to hull no 
slctouc(string,hull no); 


/* ensure hull number is in proper format */ 
y= —— first copy hull ne */ 
strcpy(string,hull no); 


if (hull no[0]--'T') 
( 
if (hull no[1]z-' ') 
( 
erte, Zei 
strcpy(string,hull no); 
} 
else if (hull no(1] != '-') 
( 
s*ring(1]) €.'-'; 
length - strlen (hull no); 
for (k=2; k<=length; k++) 
string[k] » hull _no[k-1); 
string[k] = NULL; 
strcpy(hull_no, string); 


) 
length=strlen (hull_no); 
for (j=0; j<length; j++} 
{ 
if (hull_no[j]>='0' && hull not jim 9° ) 
{ 
LEO 2o0[j-1)]4- '-') 
( 
husiene(j-l]=" *; 
break; 
} 
èls if (hull no[j-1] !*-" ”) 
( 
string(j) =’ '; 
for (k=j+l; k<=strlen(hull_no); k++) 
string[k) = hull_no[k-1]; 
string[k] = NULL; 
slctouc(string,hull no); 
break; 
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sé 


E 
n 


4 





else 


( 


break; 


) 
else if (i»O && i<4) 
( 
/* check for valid numeric input */ 
for (kz0; k<strlen(string); k++) 
( 
if ( string(k]=='.' ) ; 
alma if'Gstring[k]«'O' [| string(k])>’9’) 
( 
eprintf(textl,"Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid box(row,col, 7); 
get_data(i, row, col,hull_no, data); 


return ; 


) 
/* if input valid numbers only, convert string to float */ 
status = stofa(string, &édata(i-1], &nbr,1); 
) 
else if (i==4) 
{ 
/* check for valid numeric input */ 
for (k=0; k<strlen(string); k++) 
( 
if ( sLring[k)ew'.' ) ; 
else if (string(k]=='=') ; 
slae if (string(fk]<'0' || string[(k])>’ 9’) 
( 
sprintf (textl, "Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid_box(row,col,7); 
get data(i, row,col,hull no, data); 
return ; 


) 
/* if input valid numbers only, convert string to float */ 
status - stofa(string,&data[i-1],&nbr,1); 
) 
else 0 1 == E 
{ 
strcepy (choice, string); 


[RR er ee ee ee ee ee ee / 


a check data for consistency */ 
f IRR e e NX N e e Ñ XXX XN XN XN N NN N KN NX KX XN NN NXN KNX NÑ N NNN XK NN KX x / 


f Rhe ee e e d e 
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if (i==0) /* hull number */ 
{ f Ree e de de dee e eek 
if (hull no(0]«'A' || 'Z'«hull no[O0) && hull no(O)«'a' || hull nele) .'z') 
( 
sprintf(textl,"Invalid entry; try again"); 
display error (ERROR, text1," "); 
vid _box(row, col, 23) ; 
get_data(i, row,col,hull no, data); 
return ; 


} [RK ek jo KK / 
if (i==1} /* displacement */ 
{ /zkkkkkkkkkkkkkkk/ 


if (data[i-1)<=0.0) 
{ 
sprintf (textl, "Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid_box(row,col, 7); 
get data(i,row,col,hull no, data); 
return ; 
) 
else if ( data[i-1)«350.0 || data[i-1)>91000.0 66 data[i-1)]<=100000.0 ) 
( 
sprintf (textl, "Displacement is outside range"); 
sprintf (text2,"of data in Table G-2"); 
display error (WARN, textl, text2) ; 
} 
else if ( data[i-1)>100000.0 ) 
{ 
sprintf (textl, "Invalid entry; try again"); 
display error (ERROR,text1," "); 
vid box(row,col,7); 
get data(i,row,col,hull no,data); 
return ; 


) f Ee a] 
if (i==2) /* towing speed */ 
{ /tikkkkkkkkkkkkkkk/ 


if (data[(i-1) <=0.0} 
{ 
sprintf (textl, "Invalid entry; try again"); 
display error (ERROR,text1," "); 
vid box(row,col,7); 
get data(i,row,col,hull no,data); 
return ; 
) 
else if (data[i-1)>10.0 && data[i-1]<=12.0) 
{ 
sprintf (textl, "Planned tow speed is higher than"}; 
sprintf (text2, "normally recommended"); 
display error (WARN, text1,text2) ; 
} 
else if (data[i-1]»12.0) 
( 
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) 


sprintf (textl, "Outside range of Fig. G-1"); 
sprintf (text2, "=>please enter new tow speed<="); 
display error (ERROR, textl,text2); 

vid box(row,col,7); 

get_data(i,row,col,hull_no, data); 

return ; 


[RRR RB / 


if (i==3) /* wind speed */ 


( 


) 


fft mo» hos wn n / 
if (data[í-1)«0) 
( 
sprintf(teztl,"Invalid entry; try again"); 
display error(ERROR,tezt1," "); 
wid boz(row,col,7); 
get data(i, row, col, hull _no, data); 
return ; 
) 
else if (data[i-1]»48.0) 
( 
sprintf(teztl,"Outside range of Fig. G-2"); 
sprintf (text2,"=>please enter new wind speed«z"); 
display error (EPROP, textl,text2); 
vid box(row,co1,7); 
get data(i,row,col,hull no,data); 
return ; 


Aai as ad AAS 


if (Leed) /* wind direction */ 


( 


[rw een] 
if (data[i-1)<O) 
{ 
sprintf (textl,"Use only positive angles"); 
display error(WAPN,tezt1," "); 
data[í-1) = -data(i-1); 
) 
else if (data(i-1)>1990.0 4& data[(i-1)<269.0) 
{ 
sprintf (textl, "Use angles between 0 and 120"); 
display error (WAPN,textl," "); 
data(í-1] = 260.0 - data[(í-1); 
) 
else if (data(i-1)>70.0 44 data(i-1)<119.9) 
{ 
sprinté (textl, "No extreme tension data for beam seas"); 
sprintf (tszt2, "==> use angles < 70 or > 1109 <=="); 
display error (EPPOR,textl,text2); 
vid boxz(row, 201,7); 
get data(i,row,col,hull no,data); 
return ; 
) 
else if (data[i-1)>350.0) 


{ 
sprintf (textl, "Invalid entry; try again"); 
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display srror(ERRO?, text1," "); 
vid box(row,col,7); 

get data(i,row,col,hull no,data); 
return ; 


cursor off(); 
goto xy (0,0); 


f EU P e e e ee e e e je eee e le e e e lo E HO E E E M KK KK KK K K KK Ç Ç 


This function retrieves tow data from a user specified file. 
DR ET BR Ic te ET ee AA EC E LASEL i le 
get ship file(startrow,startcol,endrow,endcol,hull no,class, 

tow data,ship data, flag) 
int startrow, startcol; 
int endrow,endcol; 
char *hull no; 
char *class; 
float *tow data; 
float “ship data; 
mit “flag; 
{ 

FILE Fin; 

char fname(13); 

char inline([81); 

char tezt1(39],text2(323]; 

int i1,j,étuatus, nbr; 

float array[2]; 

int start; 


start = (endcol-startcol-strlen(1abel1[1]))/2 * startcl; 
write string(startrowt3, start, Labell[1), PEV_YID); 
for (1m0; 142; i++) /* weitdé prompt */ 
( 
start = startcol+23; 
write_string(startrow+10+1, start, labell[i+2],PEV VID); 
) 
vid_boz(startrow+11,start+atrlen(label1l[3)]),3); 
sprincZ (Camtl, "Type "TO to quit"); 
start = (endcol-startcol-strlen(tezt1))/2 + atartcol; 
write string(endrow-3,start,tezt)l,REV VID); 
get fname(6,1,startrow*ll,startcolt2*strlen(labell[2]),fname); 


/* shóck for quit option */ 
if (fname[0]ee'c') 
( 

cursor off(); 

goto xy(0,0); 

return (-1); 


inefopen(fname,"r"); 
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if (in==NULL) 


( 


) 


else 


{ 


sprintf(textl, "Can't open file Ts”, fname); 
display error (ERROR,textl," "); 
clear(startrowt*8,startcoltl,endrow-3,endcol-1,REV VID); 
get ship file(startrow,startcol,endrow,endcol,hull no, 


class,tow data,ship data, flag); 


return (0); 


/* read data from file */ 
fgets (inline, 81,1in); 
strstrip(inline); 


/* test for valid tow fils */ 
if (!(strncmp (inline,"! Tow data file",15))) 


( 


fgets (inline, 81, in); 
fgets (inline, 81,in); 
strstríp(inline); 


[t tewr if ship file «/ 

if (strncmp (inline, "SHIP",4)) 

( 
sprintf (textl, '$s is not a ship data file!", fname) ; 
display error (ERROR,teztl," "); 
clear (startrow+ß, startcol+l,endrow-3, endzol-1,REV_ VID); 
get_ship file(startrow, startcol,endrow,endcol,hull no, 

class,tow data, ship data, flag); 

return (0); 


/* get hull number */ 

fgete (inline, 81,in); 

fgets (inline, 81, in); 
strstrip(inline); 
strncpy (hull no,inline,24); 
strstrip(hull no); 


/* get class "/ 
fgets(inline,81,in); 
fgets (inline,B1,in); 
strstrip(inline); 

strncpy (class, inline, 24); 
strstrip(class); 


/* read remaining tow data */ 

for (ep: i<5; i++) 

( 
fgeta (inline, 81,in); 
fgets (inline, 81,in); 
status=stofa(inline,array,inbr, 1); 
tow _data(i]j=array(0]; 


1990 


) 
el 


{ 


[ammm 


This 
a us 


N NK NÑ he 


void s 


int st 
char * 
ahar * 
float 
float 
( 
FILE 
char 
char 
char 
int 


/* "ead ship data */ 

for (i=0; 1<6; i++) 

( 
fgets(inline,B1, in); 
fgets (inlins, 81,in); 
status=stofa(inline,array,£nbr,1); 
ship data(ilsarray(9]: 

) 


fclose (in); 
se 


sprintf (text1,"%s is not a tow data file!",fname); 

display error (ERROR, textl," Wf 

clear (startrow+tB, startcol+l,endrow-3,endcol-1,REV VID); 

get ship file(startrow,startcol,endrow,endcol,hull no, 
Class,tow data,ship data, flag); 

return (0); 


N N N NN KN NN NK N N kN NN Ñ N N KN N NN N N N N N N N N N N ów K NK kN N N KN NN kk NN KN K te kk K je 


function writes the tow data for self-propelled ships to 
er specified file. 
WMV TER T di e EDIC IA MODE aal aal Aa Ad Ad al A 
ave ship file(startrow,startcol,endrow,endcol,hull no, 
class,tow data,ship data) 
artrow,startcol,endrow,endcol; 
hull no; 
class; 
*tow data; 
*ship data; 


komt: 

fname [13]: 
string(25); 
text1[39]; 
start; 


/* prompt for file name */ 
start *- startcol + 3; 


writ 


e string(endrow-2,start,footer[6],REV VID); 


vid_box(endrow-2, start+strlen(footer(6))+3,3); 


get fname(6,1,endrow-2,start*strlen(footer(6])*3,fname); 


out 


18 ( 
( 


fopen (fname, "w"); 


out==NULL) 


sprintf(textl,"Can't open file 43", fname) ; 
display error(EPROR,textl," "); 
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) 


save ship file (startrow, startcol, endrow,endcol, hull no, clans, 
tow _ data, ship data); 
return; 


else 


( 


/* write tow data to file */ 
fprintf(our,"! Tow data file\n"); 
fpminmtt(ont,"! Bau type:\n"); 
fpeintf (out, "SKEP VA"); 


fpriíntf(out,"! Hull number:\n"); 
fprintf (out, "#sYn",hull noe); 


fprintf (out, "! Ship class: Mn”); 
fprintf (out, "żsin",claes); 


fprintf(out,"! 3hip displacement:in"); 
sprintf (string, "4-.1fin",tow_data[0]); 
fprintf (out, "*s", string): 


fpríntf(out,"! Tow speed (kta):\n"); 
é$príntf(stríng,"*-.1fNn",tow data[(1]):; 
fprintf(out,"*s",stríng): 


fpríntf(out,"! Wínd speed (xkts):Win"); 
spríntf (string, "*-.2fin",tow_data(2)):; 
fprintt (out, "4a", string); 


fpríntf(out,"! Pelative wind dir:\n"); 
sprintf (string, "%-.2£\n", ton data[?}); 
£fpzintf (out, "44", String); 


fprintf (out,"! Propeller status:\n"); 
sprintf (string, "4-.90f\n", tow _data(4]); 
fprintf out, "te", dering) ; 


/* “write ship data to file */ 

fprintf (out,"! Tabulated displacement:\n"); 
sprintf (string, '4-.0f1n",ship data[0]); 
fprint f (out, "te", et ring) ; 


fpríntf(out,"! Frontal windage area: n"); 
aprintf (string, "4+-.9f\n", ship data[1]); 
{printf (out, "+8", string) ; 


fprintf (out,"! Wind coefficient :\n"); 
sprint.f (string, "%-.2£\n”, ship_data[2)); 
fprintf(our,”%s", string); 


fpríntf(ont,"! Propeller area:\n"); 


spríntf(stríng,"*-.2fNn",shíp data[3]); 
fpríntf(out,"*s",stríng); 
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fprintf (out,"! Hull resistance curve number:\n"); 
sprintf (etring, "%-.0f\n", ship data(4)); 
fprintt (ott , "ts", string), 


fprintf(out,"! Wave resistance curve number:\n"); 
sprintf (string, "%-.0f\n",ship data(5]); 
fPrintf (out, "ts", string): 

) 


fclose (out); 
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f NRI c de de e e e c c e e e e c 0 oe oe de c e e e e ec c dec IKK KKK KR KKK KIKI III KIRK KKK KK HK 


File: tab.c 
Author: Todd J. Peltzer 
Last Update : 30 April 1989 


This file contains functions which support the display of Table G-2 
of the USN Towing Manual. The user can scroll through the choices 
in the table to select a ship. Once a selection is made, the user is 
prompted to confirm the choice. 


Functions: 
display tab g2() 
up line () 
down line() 
up page () 
down page () 
goto home () 
goto end() 
read table() 
read data () 
match ship() 
match type() 
match nbr () 
read class() 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


#include "stdio.h" 

#include "dos.h" 

#include "stdlib.h" 

#include "keydef.h" /* Define aux byte values for IBM keyboard */ 
#include "video.h" 


void up line(),down line(),up page(),down page(),goto home(),goto end(); 
void read table(), read data(), read class(); 


char far *vid mem; 
static char *page header(2] = 


" WINDAGE 
E CLASS DESCRIPTION DISP AREA 


extern char *hull no; 
extern char *class; 


static char *footer(2) = 
( 

"(Items marked with 'e' are best estimate.)", 

"Use arrow keys, [pgup), (pgdn], (home], [end] to view choices." 
> 


union inkey 


( 
char ch(2]; 
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PROP”, 
AREA" 





[RR RK e e hok ok Ge OCC O0 CC OCCORRE Ñ NN NN Ñ NNN Ñ N N N 


Display the table 

MEL MU XOSDNDNUONOWORCRRCá HRK ROR YR HRK OK OR KN KNN KANAN NNN NNN NNN KK NN ANNA x o n e / 
display tab g2(table,data,hull no,class) 
char **table; B 
float *data; 
char *hull no; 
char *class; 
( 

FILE *in; 

int i, j, len, start, status; 

int arrow_choice=0; 

int n=141; 

int line_no=0; 

int match, type; 

int num; 

char string(81], ch; 


set video(); 
cls(); 
cursor off(); /* turn off blinking cursor */ 


/* print header lines at top of screen */ 
for (iz0; i<2; i++) 
write string(i,0,page header([i], NORM VID); 


/* draw border */ 
for (j=0; j<80; j++) 
write char(2,j,205,NORM VID); 


/* write footer */ 
for (i=0; i<2; i++) 
{ 
len = strlen(footer(i]); 
start = (80 - len) /2; 
write _ string (23+i, start, footer[i],NORM_ VID); 


[RR U HR U X X N / 


/* find match with hull number of ship entered by user */ 


f ROC kk oe e deo do do do dc sek do doc do C ok CIC 00e Ñ XX NN NÑ NN XX XN XX N / 


match - match ship(hull no,table,&type); 


if (match<0 && type>=0) /* hull type matches; hull no. does not */ 
match - type; 


if (match>=0) 

{ 
/* set current choice to "match" */ 
arrow choice=match; 
numen-l-arrow choice; 
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if (arrow choice==n-1) 
goto end(&arrow choice,&line no,n,table); 


else if (num < 20) 
( 


/* write first screen */ 
for (i=0; i<=num; i++) 
write string(i+3, O, table[n-1-numti], NOPM VID); 


/* highlight match */ 
write string(3, O, tablelarrow choice], REV VID); 


/* ensure rest of screen is blank */ 
clear (num+1+3,0,22,79); 


else 


( 
/* write first screen */ 
Bor (U^ 1«20; i4) 
write string(i*3,0,table[arrow choice*i],NOPM VID); 


/*highiight first entry */ 
write string(3,0,tablelarrow choice], PEV VID); 


) 


else 


( 
/* write first screen */ 
for (i-0; 1-20; i-*) 
write string(i+3,0,table(i),NOPM VID); 


/* highlight first «entry */ 
write string(3,0,table[0)],REV VID); 
) 


f ENIM e de e ee e e e e de de e e je e e je e e e ee e e e e e e I I ie / 


H get user's response * / 
f ER e e e de e e e e e N e ee e de je e e e NNN N NN KN XN NX KN NX NN NN KN KN KKK N KK K / 


status = get tab 32 resp(&arrow choice,4line no,n,table); 


if(!status) /* status==0 is normal return from get tab 32 resp */ 
( 

/* read data from appropriate file */ 

in * fopen("table.dat","r"); 

read data(in,arrow choice,data,$); 

read class(arrow choice,table,class,23); 


) 


/* need else statement to handle situation if escape key is pressed */ 


f fh d dee dededese dee dedesosetew w NN NN NN NN NK KK KK KK KKK KKK KK KKK KKK KK KKK KKK KK KK KK KK KK KK KK K E 
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This function allows the user to scroll through choices and make 
selections. Returns O if selection is made; returns -1 if escape key 
is pressed. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


get tab g2 resp(arrow choice,line no,n,table) 


int *arrow choice; /* current table entry */ 
int *line_no; /* current screen line number */ 
HIE n; /* number of entries in table */ 
char **table; /* current ship table = 
{ 

for (:; 


{ 
while(!bioskey(1)) ; /* wait for key stroke */ 
c.i = bioskey (0); /* read the key */ 


iE(e.ch(0]) /* is normal key */ 
{ 
switch(c.ch[0]) 
( 
case '\r’: 
return 0; 


case ESC : 
return -1; /* cancel */ 
default : 
beepl (); 
break; 
} /* end "switch" */ 
) Tand if" sy 
else 


{ /* is special key */ 
switch(c.ch[1)) 
{ 
case UP_ARROW : 
up line(arrow choice,line no,n,table); 
break; 
case DOWN ARROW : 
down line(arrow choice,line no,n,table); 
break; 
case PAGE UP : 
up page(arrow choice,line no,n,table); 
break; 
case PAGE DOWN : 
down page(arrow choice,line no,n,table); 
break; 
case HOME : 
goto home(arrow choice,line no,n,table); 
break; 
case END : 
goto end(arrow choice,line no,n,table); 
break; 
default : 
beepl(); 
break; 
} /* end "switch" */ 
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) /* and "©elne" */ 


VE EEE 2 2 EEE 22 2 EEE 2 2 2 2 2 2 2 2 22 22 22 2 2 2 2 2 2 2 22 2 22 2 2 2 22 2 2 22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 


This function moves the highlighted choice up “ne line, 


-- íf beginning of table, dies nothing; 
-- if top of screen but not beginning of table, scrolls screan; 
-- otherwise, just moves up one line. 


PREAH K BNK KKKE NK RKR K KKK NK KKK KK KK KRK KK NKE KKK K KKK KK KK KK KK KKK KK KKK KK K KKK KKK K KA / 


void up líne(arrow choice, line no,n,table) 


int *arrow choice; /* current tsble entry e / 
int *line_no; /* current screen line number */ 
ime n; /* number of entríes ín table */ 
char **table; /* current ship table ^ / 

f 


{nt i, num; 


if ("Arrow choice == 0j ; /* fíir&t table entry */ 
else if ("line no == N) /* top of alindoa, nor tizat entry */ 
{ 


/* highlight previous entry */ 
write etring(2, 9, table[*arrcow choiíce-1], HEY VID); 


/* is this the last acreen? */ 
naen- arron choice; 
if (num^20) 


{ 
for (489; Aicnum; i++) 
writé string(i*4, 9, table(*arryva choice*si), WWFM 71D); 
) 
else 
( 
tar (10; 1<19; 144) 
write string(i+4, N, table(*arrow choicesi), BOM VID); 
) 
(*arrow choice) --; /* line no staye the same */ 
) 
else 
( 


/* highlight previous entry »/ 


write stríng(*line no-1*2, H Kak lar arre cheoiíce-i], KEY VED); 


/* restore last highlighted entry to normal vídeo */ 


Write string("line no, 0, tabla [arron choice), NORM "7ID); 


/* decrement table entry $ and screen line $ */ 
("arrow choice) --; 
(“line no)”; 





f NRI e kk e e e e e e e e e e e e e e e e e e e e e e e e ee e e e oe X NX X NN XX X X XÑ XX XX NN X X N X X X X X X X X X X X NX X X + x 


This function moves the highlighted choice down one line. 


-- if end of table, does nothing; 
-- if bottom of screen but not end of table, scrolls screen down one line; 
-- otherwise, just moves down one line. 


ee AREA ER RO RO Rf e ok e ee oe dee ee ede deje eoe ee dee dee sedeo e ee de de dee dee de je deo e ie e de e e e dee ee ee / 


void down line(arrow choice,line no,n,table) 


int *arrow choice; /* current table entry 2 

3uE *linw no; /* current screen line number */ 

Ent m; /* number of entries in table */ 

char **table; /* ship table */ 

{ 
unt i» 
if (*arrow choice == n-l) ; /* last table entry; do nothing */ 
else if (“line no == 19) /* end of window, not last entry */ 


{ 


/* display table */ 
for (e0; 1«19; itt) 
write string(it3, 0, table[*arrow choice-18+i], NORM VID); 


/* highlight next entry */ 
write string(22, 0, table(*arrow choicetl], REV VID); 


(*arrow choice) ++; /* line no stays the same */ 


else /* move highlight down one line */ 


{ 


LIghirgbht next Entry */ 
write string(*line no+1+3, 0, table(*arrow choicetl], REV VID); 


/* restore last highlighted entry to normal video */ 
write string(*line not3, 0, table[*arrow choice], NORM VID); 


(*arrow_choice) ++; 
(*line_no) ++; 


RN NNN NNN NNN NAN N NK NANA KKK e fe e he he fe e ee e e eoe e e e fe fe defe je NN e eoe e n I 


This function displays previous page of table. 


-- if beginning of table, does nothing; 
-- if first page, moves highlight to first line; 
-- otherwise, highlight stays on same screen line. 


e c e e e e e e e e e e e e oe ke e e o e e e e e e e e e e coe e oe e e oe e oe e e e e e e e e e oe e X X NX NX XN XX XX XN XX XX XX ÑN X X / 


void up page(arrow choice,line no,n,table) 


int *arrow choice; /* current table entry w 
int *line no; /* current screen line number */ 
ime n; /* number of entries in table */ 
char **table; /* ship table */ 


{ 


int i, last; 
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if (*arrow choice -- 0) ; /* first table entry */ 


/* if on first page, but not first entry, highlight first entry */ 
else if (*arrow choice « 20) 
( 
for (i=0; i<20; i++) 
write string(it3, 0, table(i), NORM VID); 
/ *AMighaight"firit śntry”*/ s 
write string(3, O, table(0], REV VID); 


*arrow choice = 0; /* reset */ 
*line no = 0; 


/* not on first page; display previous page */ 
else 
( 
/* compute index of top of previous page */ 
last = *arrow choice - *line no - 20; 


/* display previous page */ 
if (last<=0) /* jumping 20 entries would go to or past top of table */ 
{ 
for (i=0; i<20; i++) 
write string(i+3, 0, table(i], NOPM VID); 
write string(*line no*lastt3,0,table(*arrow choice-20],REV VID); 
*line no=0; /* rset line no */ 
) 
else 
{ 
for (is0; i<20; i++) 
write string(i+3, 0, table(last+i), NORM VID); 


/* highlight choice; same relative position on screen */ 
write string(*line not3, 0, table(*arrow choice-20], REV VID); 
) 


*arrow choice -= 20; /* line no stays the same * / 


f fU e e dee e de de e e de de de de de IOI N NNN XX NX ÑN NN NÑ NN NX XNXX NN XNXX NN NÑ XN KN NK NK K Oe e e e e 
This function displays next page of table. 
-- if end of table, does nothing; 
-- if last page, moves highlight to last line; 


-- otherwise, highlight stays on same screen line. 
Yee e e e NNN XX NN XXX NNN NÑ NN NN NN NN NX NN NN NN NN NN N K XX NN XÑ X N N / 


void down page(arrow choice,line no,n,table) 


int *arrow choice; /* current table entry *7 
int "Jane no; /* current screen line number */ 
imc n; /* number of entries in table */ 
char **table; /* ship table v 


( 


int i, num, next; 
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numen-l-*arrow choice; /* # lines to final entry from current */ 
if (*arrow choice -- n-1) ; /* final table entry */ 


/* if on last page, but not final entry, highlight last entry */ 
else if (num < 20) 
{ 
for (i=0; i<num; i++) 
write string(it3, 0, table{n-1-numti], NORM VID); 


/* highlight final table entry */ 
write string(numt3, 0, table(n-1], REV VID); 


*arrow choice - n-1; 

*line no - num; 

clear (num+1+3,0,22,79); /* ensure rest of screen is blank */ 
} 
else /* not currently on final page */ 


{ 
/* compute index of top of next page */ 
next - *arrow choice - “Ene no + 20; 


/* display next page */ 
if (n-next«20) /* less than 20 lines on final page */ 
{ 
/* ensure jumping 20 entries won’t put highlight past final entry */ 
IPR nekt + *1insne € n) /* it will go paèt */ 
{ 
for (i=0: i < (n-next); i++) 
write string(i+3, 0, table(nextti], NORM VID); 


/* highlight choice */ 
write string (*line not3,0,table(*arrow choicet20],REV VID); 


*arrow choice += 20; /* line_no stays the same */ 
clear (n-next+3,0,22,79); /* ensure rest of screen is blank */ 
} 
else sit won't gewpaAwt */ 


{ 
for (i=0; i < (n-next); i++) 
write string(it3, 0, table(next+i], NORM VID); 


/* highlight choice */ 
write string(3, 0, table[next], REV_VID); 


*arrow_ choice += 20; /* line_no stays the same */ 
clear (n-next+3,0,22,79); /* ensure rest of screen is blank */ 
) 
) 
else /* n-next »- 20 */ 
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tor (im0; i<20; i++) 
write string(i+3, 0, tablelneztti), NORM VID); 


/* highlight choice */ 
write string(*line no*3, 0, table[*arrow choice*20], PEV VID); 


*arrow choice += 20; 7% line_no stays the same */ 


f RE Eh o e A dee ee ee e eoe ee e ee ee e ee e e e e e e e w e e he he e N N KÑ ÑN KK KK N K KK KK KK KK K KK KK K K K 


Thís function resets display to beginning of table; highlights first entry. 


EAR Wok N ARAR EK ER ER ER ERK RR RR RR KERE RR RR DERE RR RARR RR REKE RR RE RR RE EE RE EER KERR 


void goto home(arrow choice,line no,n,table) 


int *arrow choice; /* current table entry E 
int *line no; /* current screen line number */ 
int n; /* number of entries in table */ 
char **table; /* current ship table *7 
( 

intei; 


/* display first screen */ 
for (i-1; 4«20; it) 
write string(it+3, 0, table(i), NOPM VID); 


/* highlight first entry */ 
write string(3, O, table(0), REV VID); 


/* reset */ 
*arrow choice = 0; 
*line no = 0; 


f t de e de e e dee e e de e ede e e e e de dede de e de dede je EEE 


This function displays final page of table; highlights final entry. 


Ñ XX XNXX NX NN NX NNN NNN Ñ N NNN N NXN NNN Ñ NN NN NNN X NÑ NÑ de RR RR KERR KEER ER EE EE RE EE KEER EE RR RR EE 


void goto end(arrow choice,line no,n,table) 


int *arrow choice; /* current table entry Ba 
int *line_no; /* current screen line number */ 
int m; /* number of entries in table */ 
char **table; /* current ship table "y 
( 

fre; 


/* display final page */ 
for (i=0; i<13; i++) 
write string(it3, O, table(n-20+i), NORM_VID); 


/* highldghe Final entry */ 
write_string(22, 0, tasble[n-1), REV VID); 


"arrow choice = n-1; /* set current table entry to final entry */ 
*line no - 19; /* set current screen line to end of screen */ 
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f| NOR o e e e eoe e e e e ke e e e e e e e e e e e c oe e oe e X X NN N N N N X N NÑ NX XN X NX X X N NX N N NX XK KN XX NX NX 0 OC e e 


This function reads string data from a file, strips leading and trailing 
Spaces, tabs, and carriage returns, fills end of string with blanks, and 
adds a null character to the end of the string. 


O a a a a a a aaa al a a a ON OR Ye ee e e e e e e ee de e ee dec dee eoe e de ee je ee ehe je eoe e de e de de ek eee ee ede dee ee / 


void read table (in,table,length) 


FILE *in; /* pointer to input file * / 
char **table; /* current table * / 
int length; /* length of desired cursor highlight */ 


{ 
char inline[81]; 
int i, 7j=0; 


while (fgets(inline,81,in) != NULL ) 
{ 


strstrip(inline); /* strip leading & trailing spaces, etc. */ 


/* skip blank & comment lines */ 
if (inline [0] == NULL || inline[0] == '!') continue; 


/* pack end of string with blanks so highlight goes full width */ 
for (i=strlen(inline); i<length; i++) 
inline[i] = ' '; 


inline(i] = NULL; /* terminate string with null character */ 


/* allocate enough memory for each string */ 
table(j] = (char *) calloc(81,sizeof(char)); /* is this necessary? */ 
/* --array is already dimensioned in main() */ 


/* copy string from file into array */ 
strepy (table[j), inline); 


j++; /* increment counter */ 


f NN se e e ec he e he ee e e e oe e e ee je e e ec e e e e e oe e e e c e ec e e e oe e oe e ke e ke e e e e e o e oe e oe c e IOI III KK KK KK 


This function reads strings from a file and converts them to floating 


point data. 


X c e e e e e e e oe e e e e e oe ee e e e e oe e e e e e oe e occ o e oe e oe oe N N XX NX e oe e e oe e e e c e ok c ok c o / 


void read data(in,data line,data,array length) 


FILE *in; /* pointer to input file * / 
int data_line; /* ship choice from table */ 
float *data; /* array to store data * / 
int array length; /* number of elements in array */ 


{ 
char string(81),dummy (81); 
int i, status,n,nbr; 


/* skip blank & comment lines */ 
while (1) 
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fgets (string, 81,in); 

if(string[0] == NULL || string(0] == '!') 
continue; 

else 
break; 


if (data. line != 0) /* if choice is first line, String already read */ 
{ 
for (i=l; i<data_ line; it+) /* read & discard data up to desired line */ 
fgets (dummy, 81, in); 
fgets (string, 81,in); /* read desired line of data */ 


/* convert string to floating array */ 
status=stofa (string, data, &nbr,array length); 


fclose (in): /* close file */ 


f RC eoe ee e ce e e e eoe e e e e e e ee e e e e eoe IOI KI IK IOI e e e IIH IK IK IK IK IK IK II e e e e e e e e e e Se e € 


This function searches for the matching entry in Table G-2, or gives 
first occurrence of the hull type. If no match is found, returns -1. 


Y ce e oce c ec e e ce ec oce e e e e e j 


match ship(hull no,table,type match) 
char *hull no; 
char **table; 


int *type match; 


( 


int i=0, j=0, k=0, n=141; 
int status=0; 

int match=0; 

char class[23]; 

int flagel; 


*type match - -1; 


do 
{ 
status = match_type(hull_no,table(j]); 
if (status) 
{ 
if (flag) 
*type matchzj; /* captures first type match */ 
flag=0; 
strncpy (class, table[(j]), 23); 
class [23]=NULL; 
match = match_nbr (hull_no,class); 
if (match) 
break; 
else 


{ 
at; 


18:5 


continue; 


) 


else 
Ter 
} while (j<=n); 


if (status) 
( 

peturn j; 
} 
else 


return -1; 


f f Ree de e de e ee dece de de e e e e eoe e e e e ee e e e e e e e e e e e e e e e e e e e eee e N KN NN KN e e e e X XN NN X N XX XX NX Ñ 


This function determines if the specified hull type matches that of a 

given entry in Table G-2. Returns 1 if hull type matches, otherwise 

returns 0. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkAkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
match type(hull no,entry) 
char *hull no; 
char *entry; 
( 

int iz0; 

int status=0; 


while (hull no[i] !- NULL) 
( 
if (hull no[i]zz' ' && hull no[i]zzentry[i]) 
( 
status = 1; 
break; 
} 
else if (hull no(i]==entry(i]) 
HL. 
else 
( 
status = 0; 
break; 


return status; 


ITE T L HHR A K K X X X X XA K KA X X XX AX NN KKK AK NA KANA ANKAN NT e e N 
This function compares the specified hull number to the list of 
numbers in a given entry in Table G-2. Returns 1 if hull number matches, 


oterwise returns O. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkikkkkkkkkkkkkkkwkkkk/ 


match nbr(hull no,class) 
char *hull no; 


char *class; 
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float hull; 
float tab[4]; 
int flag(3); 

int k=0, m=0; 
char string[23]; 
float nbr; 


/* convert hull no to actual number */ 
while(hull_no[k) te NULL) 
{ 
Lëtzeb) < "oi [| hull ne(k) » '$') 
k++; 
else if (hull no(k) >= '9’ 64 hull_no(x) <= '9') 
{ 
string(m)<#hull no(k); 
| nad 
mtt; 


) 
string[m)=NULL; 
stofa (string, 6hull, énbr,1); 


/* 2orW sit ship cldas to flosting array *'/ 
/* =- J ip DLL dhit type */ 

k=); 

while(class(Xx) !- ' ') 

{ 


if (claaa(k) <= ‘9’ || clasa(k) >= 'W') 
k++; 
} 
ZE == get first number */ 
++; 
m=); 


while(class(k) >= ‘0’ 46 clasa(k) ze '9') 

{ 
string(m)]=clase(Xx]; 
uk; 
mtt; 

) 

if (clmss[k] == '—') 
flag(9)=9; 

else if (class[X] == ',') 
flag(9)=1; 

else 
flag(0) = -1; 


string (m) =NULL; 
Btofa (atring, stab(9), 6nbkr, 1): 


/* -= gøt second number */ 

++; 

mel); 

while(class(k) ze "07 tt <lass[r) <= '9') 


string(m)=class(k]; 
kt; 
m++; 

) 

if (class(k) == '-') 
flag(1)=0; 

else if (class(k) == ',') 
flag(1)=1; 

else 
flag(1) = -1; 


string(m) =NULL; 
stofa(string,&tab[1],&nbr,1); 


/* -- get third number */ 


k++; 

m=O ; 

while(class(k] »- 'O' && class[k) <= '9') 

( 
string(m) =class(k); 
k++; 
mtt; 

) 

if (class[k) == '-') 
flag(2)=0; 

else if (class(k) == ',') 
flag(2)=1; 

else 
flag(2) = -1; 


string([m) =NULL; 
stofa(string, &étab(2), &nbr, 1); 


/* —- güt fourth number */ 
k++; 
mmo; 
while(class(k)] >= 'O0' && class[k) <= '9') 
{ 
string(m)=class(k); 
k++; 
mtt; 


string[m] =NULL; 
stofa (string, 4tab(3),&nbr, 1); 


/* find match */ 
if (flag[0)«0) /* only ons listed */ 
( 
if (hull==tab(0])) 
return 1; 


else 
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return O0; 
) 
else if (flag(1]«0) /* only two listed */ 
( 
if (flag(0)==1) 
( 
if (hull=z=tab(0] || hull==tab(1])) 
return 1; 
else 
return 0; 
) 
else if (flag(0)==0) 
{ 
if (hull>=tab(0) && hull<=tab([(1)) 
return 1; 
else 


return O; 


) 
else if (flag(2)<0) /* only three listed */ 
( 
if (flag(0]==1 && flag(1)==1) 
( 
if (hull=#=tab(0) || hull==tab(1] || hull==tab[2)) 
return l; 
else 
return 0; 
) 
else if (flag(O)==1 && flag(1)==0) 
( 
if (hull==tab(0] || (hull>=tab(1] ££ hull<=tab(2)) ) 
return 1; 
else 
return O; 
) 
else if (flag(O)==0 && flag(1]==1) 
( 
if ( (hull>=tab(0) && hull<=tab(1)) || hullzztab(2]) 
return 1; 
else 


return O0; 


) 
else /* four listed */ 
( 
if (flag(O)==1 && flag({1)==1 && flag(2)==1) 
( 
if (hull==tab(0) || hull==tab(1) || hull==tab(2] || hull==tab(3]) 
return 1; 
else 
return O; 
} 
else if (flag(O)==0 && flag({l)=#=1 && flag(2)==1) 
{ 
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if ( (hull>=tab[0)] 66 hull<=tab[1]) || hull==tab[2) || hull==tab(3)) 
return 1; 
else 
return O0; 
) 
else if (flag[0]==1 66 flag[1]==1 66 flag[2]==0) 
{ 
if (hull==tab[0) || hull==tab[1] || (hull>=tab[2)] && hull<=tab{3]) ) 
return l; 
else 
return 0; 
) 
else if (flag[0]==0 4% flag[1]==1 66 flag[2)]==0) 
{ 
if ( (hull>=tab[0) 66 hull<=tab[1)]) || (hull»-tab[2] 66 hull<=tab[3]) ) 
return l; 
else 
return 0; 


f FO e ke ke e ce ce che e e e e e e e ke hehe he he e e e ehe e e e e e e e e e he ke e e ke N X XX XX XX NXN NX X N NX X XX XX XX XX XX XX X Ñ 


This function reads the ship class based on the user's choice as 
specified by the user in display tab g2(). 
3 cc ce ce e e e kc kc ke kk kc e e e e kc ke kc ke ke e c kc kc ke ke ke e ke kc e ke ke oe e ke kc kc ee e ke kc ke kc IO / 
void read class (choice,table, class, length) 
int choice; 
char **table, *class; 
int length; 
{ 


int i; 


for (i=0; i<length; i++) 
class[i) = table(choice] [i]; 


class[length) = NULL; 
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f f ROO e ene ec he e e e e ce e he he e e e e he e e e e he oe he e e he e e e e e e e e e C e e e e e RR e e e e NX N XN XN X X X X XX X N XN X 
File: dis.c 
Author: Todd J. Peltzer 
Last update: 30 April 1989 


This file contains the functions which display the ship data read 
from file and give the user the opportunity to edit it. 
Functions: 
display data() 
edit data() 
t 3t e e e e e e e e e e e e e eoe e e e e e e e e e e e e e e e X N N NX e e N XX X XNXX Ñ N NN XN XX NX XN NN NX XX X XXX XX X XX X / 
#include "stdio.h" 
#include "dos.h" 
#include "keydef.h" 
#include "video.h" 


static char *label[] = 
{ 
"SHIP DATA", 
"Hull number:", 
"Class:", 
"Displacement", 
p Actual:", 
A Tabulated:", 
"Frontal area:", 
"Wind coefficient:", 
"Propeller area:", 
"Hull resistance curve:", 


"Wave resistance curve:" 


static char *footer[] - 

( 
"Is all data correct? (yes/no): ", 
"Fl Disp F2 Front F3 Wind F4 Prop", 
" Press INS to continue ", 
" 


Save data to file? (yes/no): ", 
" Enter tug file name: " 


static char choice[4]; 


typedef struct 
( 
int startcol; 
int endcol; 
) data box; 


static data box input[] = 


( 


{43,50}, /* displacement * / 
{43,50}, /* frontal area * / 
(44,50), /* wind coef * / 


191 


{43,50}, /* propeller area */ 
{54,58} /* yes/no choice */ 


void edit data(); 


/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


This function displays the data input by the user to this point, and 
gives the option to edit most items. 


xkkkkkkkkkkkkkkkkkkkikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkwkkkkkkkkkkkkkkk/ 


void display data (hull_no,class,tow data, ship data) 


ehär *hull noe: /* actual hull number */ 
char *class; Ir ship class from table G-2 */ 
float *tow_data; /* tow data */ 
float *ship_data; /* ship data SE 


{ 


int startrow=2; 
int startcol=20; 
int endrow=22; 
int endcol=60; 


int row, cel, i, Start, key; 
char string[24]; 


/* draw background and border */ 
draw_window (startrow, startcol,endrow, endcol, DOUBLE, REV VID); 


/* write header */ 
write header (startrow, startcol, endcol, label[0),REV VID); 


/* write data labels */ 
for(row=startrow+5,i=l; i<=10; i++, rowt+) 
write string(row,startcolt3,label[i],REV VID); 


/* write data */ 
/* write hull number */ 
write string(startrowt5,startcol*2tstrlen(label[1])*2,hull no,REV VID); 


/* write ship class */ 
write string(startrowt6,startcolt2t*tstrlen(label[2]) *2,class,REV VID); 


/* write actual displacement */ 
sprintf (string, "$8.0f",tow data[0]); 
write string(startrow*t8,startcolt2tstrlen(label[4])*8,string,REV VID); 


/* write tabulated displacement */ 

sprintf(string,"$8.0f",ship data[0]); 

write string(startrowt9,startcolt2tstrlen(label[5])*5,string,REV VID); 
/* write frontal windage area */ 

sprintf (string, "%5.0£",ship_data[(1]); 


write string(startrow+10, startcol+2+strlen(label(6))+10, string, REV_VID); 


/* write wind coefficient */ 
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sprintf (string, "%4.2f£", ship data(2}); 
write string(startrow*ll,startcolt24strlen(1label[7])*7,string,REV VID); 


/* write propeller area */ 
sprintf(string,"$5.0f",ship data[3]); 
write string(startrow+12, startcol+2+strlen(label(8))+8, string, REV_VID); 


/* write hull resistance curve number */ 
sprintf (string, "%3.0£", ship data(4]); 
write string(startrow+13, startcol+2+strien (label (9])+3, string, REV VID); 


/* write wave resistance curve number */ 
sprintf (string, "%3.0f",ship data[5]); 
write_string(startrow+14,startcol+2+strlen(label(10])+3,string, REV VID); 


/* write units */ 

write_string(startrow+8,startcol+31, 'tons",REV_VID); 
write string(startrow*9,startcol*31,"tons",REV VID); 
write string(startrow+10,startcol+31,"sq ft", REV_VID); 
write string(startrow+12, startcol+31,"sq f£t",REV VID); 


[FARRO RARA AAA RARA ARA RARA RRA RARA RRA RRA RARA RARAS 


/* prompt user for confirmation of data; give edit option */ 

f f RUORCHURU / 

start = startcol + 3; 

write string(startrow+16, start, footer(0],REV_ VID); 

vid box(startrow+16, start+strlen(footer(0)),4); 

edit_data (4, startrow+16, start+strlen(footer[(0]),tow_data, ship _data); 


/* test if data correct */ 
if ( choice(0)!=' y” && choice(0]!-'Y' && choice([0]!zNULL ) 
( 
/* erase previous message */ 
start = startcol + 3; 
for (iz0; i<strlen(footer(0))+4; i++) 
write _char(startrow+16,start+i,' ',REV VID); 


/* write quit message */ 
start=(endcol-startcol-strlen(footer[2]))/2 + startcol; 
write string(endrow,start,footer(2],REV_VID); 


/* write edit "menu" */ 
start=(endcol-startcol-strlen(footer[1]))/2 + startcol; 
write string(startrow+16,start,footer(1],REV_VID); 


/* write function key indicators in NORM_VID */ 

for(i=0; i<2; i++) 

( 
write _char(startrow+16, start+i, footer (1] [1] NORM_VID); 
write char(startrow*16,start*8*i,footer[1][i*8],NORM VID); 
write char(startrow+16, start+17+i, footer(1] (14+17], NORM_VID) ; 
write char(startrow+16, start+25+i,footer([1)] (1+25], NORM_VID); 
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/* 


edit data * / 


f| FCRCKCK OOOO TORO RO ROO ROO RO ROO ROO ROO RIOR TORIO RR RR ARANA AAA / 


/* move cursor to Fl highlight */ 
cursor on(); 


goto xy(startrowtl6,start); 


/* get user's choice */ 
while (1) 


{ 


key=get_ special (); 


if (key==F1) 


{ 


} 


vid_box(startrow+8,startcol+2+strlen(label[4])+9,7); 
edit_data (0,startrow+8, startcol+2+strlen(label[4)])+9,tow data, ship data); 
for (i90; i«7; itt) 
write char(startrow+8,startcol+2+strlen(label[4])+9+i,' ', 
REV_VID); 
sprintf (string, "*8.0£",tow_data[0)); 
write string(startrow+8,startcol+2+strlen(label(4])+8,string, 
REV_VID); 
cursor on(); 
goto xy(startrowtl6,start); 


else if (key==F2) 


( 


} 


vid box (startrow+10,startcol+2+strlen (label (6]))+8,7); 
edit data(1,startrowt10,startcol+2+strilen (label (6]) +8, 
tow data, ship data); 
for (i=O; i<7; i++) 
write char(startrow+10,startcol+2+strlen(label(6])+8+i,' se 

REV_VID); 

sprintf (string, "%6.0f£",ship data[1)); 

write string (startrow+t10, startcol+2+strlen(label[6))+9, string, 
REV VID); 

cursor on(); 

goto xy(startrowt16,starttB); 


else if (key==F3) 


{ 


} 


vid box(startrow+1l, startcol+2+strlen (label(7))+5,6); 

edit data(2,startrowtll,startcolt2tstrlen(label[7)])*5,tow data, 
ship data); 

for (i=0; i<7; i++) 

write char(startrowtll,startcolt2tstrlen(label[7])*5*i,' ', 

REV VID); 

sprintf (string, "%6.2f",ship data(2)); 

write string(startrowtll,startcol*2*strlen(label[7])-*5,string, 
REV VID); 

cursor on(); 

goto xy(startrowtl16,start*t*17); 


else if (key==F4) 
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vid box (startrow+tl2,startcol+2+strlen (label[ß]) +6,7); 
edit data (3, startrow+tl2,startcol+2+4strlen (label [8))+6,tow data, 
ship_data); B 
For (i=0: i<7; i++) 
write char(startrow*12,startcol424strlen(label[8])4641," KS 
REV VID); 
sprintf (string, "47.0f", ship data{3]); 
write _string(startrow+12,startcol+2+strlen(label(8])+6, string, 
REV_VID); 
cursor on(); 
goto_xy(startrow+16, start+25); 
) 
else if (key==INSERT) 
( 
/* erase menu */ 
for (i=0; i<strlen(footer[1)); i++) 
write_char(startrow+16, start+i,' ',REV VID); 


/* erase message */ 

start = startcol + l; 

for (im0; i<(endcol-startcol-1); i++) 
write char (endrow, start+i,205,REV_VID); 


break; 


) 
cursor off(); 
) 
else /* no wditing,.nequirgsd */ 
( 

/* erase previous message */ 

start = startcol + 3; 

for (i=0; i<strlen(footer[{0))+4; i++) 

write char (startrow+16,start+ti,’ ',REV VID); 

) 
/* prompt to save data to file */ 
start w.startcol + 3; 
write string(endrow-4, start, footer{3],REV_VID); 
vid box(endrow-4,start*strlen(footer[3]),4); 
edit data(4,endrow-4,starttstrlen(footer[3]),tow data,ship data); 


if ( choice[0]!-'n' && choice[0]!s'N' ) /* save data */ 
( 
/* erase previous message */ 
start = startcol + 3; 
for (i=0; i<strlen(footer[3])+4; i++) 
write char (endrow-4,start+i,' ',REV VID); 


save ship file(startrow,startcol,endrow,endcol,hull no, 
class,tow data,ship data); 


f E RO e dd dde de de de e e e e de de de de NNN ÑN NN NN NN NN ÑN NÑ NN NN ÑX NN NN NN N N KN NN NN KK K KKK KK KK KK KK KK N 
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This function allows editing of the data displayed by display data(). 
AAR AA DM ha Ah ta NIE ALANA AA FAA AWA EE KE W eode dedos RRR SB Hede de HER esum ah anh Ie / 
void edit data(i,row,col,tow data,ship data) 
int 1; 
int row; 
int col; 
float *tow data, *ship data; 
( 


int nbs; /* required arg for stofa t/ 
int status; /* takes return value for stofa */ 
char text1[39], text2[39]; /* error message text E Z 
Mt de; /* counter by 
char string[24); /* array for keyboard input e / 
cursor_on(); /* turn on cursor */ 
goto_xy (row, col); /* move cursor to start of box  */ 


/* get user input */ 
acreen_getatrg(i, row,col,string,NOPM VID, input); 


if (1<4) 
( 
/* check for valid numeric input */ 
for (k=0; ktstrlen(string); ktt) 
( 
if ( Mring[x)="".' ) ; 
elee if (atring(k)<'0’ || string(k)>’ 9’) 
{ 
śprinńnt£f (textl, "Invalid entry; try again"); 
display error(ERROR,text1," "); 
vid box(row,col,7); 
edit data(i,row,col,tow data,ship data); 


return ; 


) 
/* if input valid numbers only, convert string to float */ 


if (i==0) 
status = stofa(satring, 6tow data(i),4nbr,1); 
else 
status = atofa(atring,tship data(1]) £nbr, 1); 
) 
else /* i == 4 */ 
stropy (choice, string) ; 


/* check data for consistency */ 
if (i--0) /* check displacement */ 
( 
TT (tow data[1]«-0.0) 
( 
sprintf(textl,"Invalid entry; try again") ; 
display error(ERROR,tezt1," "); 
vid box(row,col,7); 
edit data(i,row,col,tow deta, ship data); 


return ; 


else if ( tow data[i1]«350.0 || tow data[1]»91000.0 ££ 
tow _data[i)<=100000.0 ) 


sprintf(textl,"Displacement is outside range"); 
sprintf(text2,"of data in Table G-2"); 
display error (WARN, textl, text2) ; 

) 

else if ( tow data[i]>100000.0 ) 

( 
sprintf (textl, "Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid box(row,col,7); 
edit data(i,row,col,tow data,ship data); 
return ; 


) 
if (i-2-21) /* check frontal area */ 
( 
if (ship data(i)<=0.0) 
d 
sprintf (textl, "Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid box(row,col,7); 
edit data(i,row,col,tow data,ship data); 
return ; 
) 
else if (ship_data[i)>50000.0) 
( 
sprintf (textl, "Frontal area is unusually high;"); 
sprintf (text2,"please check this number again."); 
display error (WARN, text1,text2) ; 


) 
if (imm2) /* check wind coefficient */ 
( 
if (ship data[i]«O || ship data[i]>1.0) 
( 
sprintf(textl,"Invalid entry; try again"); 
display error(ERROR,textl," "); 
vid box (row,col,7); 
edit data(i,row,col,tow data,ship data); 
return ; 


) 
if (i=m3) /* check propeller area */ 
( 
se (ship data[i)«0) 
( 
sprintf(textl,"Invalid entry; try again"); 
display error(ERROR,textl," "); 
víd box(row,col,7); 
edit data(i,row,col,tow data,shíp data); 


return ; 
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else if (ship data[i]»1500.0) 
( 


sprintf (textl, "Propeller area is unusually high;"); 
sprintf (text2, "please check this number again."); 
display error (WARN, textl,text2) ; 


cubo rot () ; 
goto xy(0,0); 
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f ROIG e e hoe kk eo e e e koc e ek e ke e e o e e NXN ec e oc je e eje NXN N NNN NN NN NX XÑ XN NXN XX XX X N NX X NX X NX NX X N X N 
File: dock.c 
Author: Todd J. Peltzer 
Last update: 30 April 1989 


This file contains functions which support computation of the 
resistance of floating drydocks and barges. 
Functions: 
get dock() 
get hull cond() 
get dock towdata() 
dock summary () 
get name () 
get dock resist() 
dock resist () 
square() 
get dock data () 
get dock file() 
save dock file() 
est disp() 
Yo e e ec o e oe oe e e e e e o oe oe o coe ok e oe e X NN NNN X XX N NNN NK XX XN XN XN XN NN NN XX NN NN NN X e e e e e e X X N X X / 
#include "stdio.h" 
#include "dos.h" 
#include "keydef.h" 
#include "video.h" 


static char *header[) = 
( 
“SELECT DRYDOCK", 
"HULL CONDITION", 
"TOw DATA", 
"DATA SUMMARY" 


static char *label[) = 


( 


"Clean hull (no growth) = 0", 
"Average hull (moderate growth) = 5", 
"Fouled hull (heavy growth) = 10", 


"Enter hull condition:", 
"Tow speed:", 

"Max expected wind speed:", 
"Relative wind direction:" 


static char *labell() - 
( 
"Options", 
"Retrieve File", 
"Enter name of tow file", 
"to retrieve (8 char max): " 
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static char *menul[) = 

( 
"1) Enter new data "- 
"2) Edit existing data", 
"3) Retrieve data file" 


) ; 


static char *footer[] = 
( 
"Please enter data.", 
"Is all data correct? (yes/no): " 
"Fl Name F2 Hull F3 Tow", 
"F4 Wind F5 Rel", 


" Press INS to continue ", 


€ 


" Save data to file? (yes/no): ", 
" Enter tow file name: " 


y; 
static char response(4]; 


typedef struct 
( 
int startcol; 
int endcol; 
) data box; 


static data box input[) = 


{ 


(49,55), /* not used x / 
{49,55}, /* hull condition */ 
{49,55}, /* tow speed Z 
(49,55), /* wind speed * / 
(49,55), /* wind direction */ 
(54,58), /* yes/no choice */ 
(49,58) /* tow file name */ 


static int startrowz2; /* boundaries of window */ 


static int startcolz20; /* H * / 
static int endrow=22; /* ut */ 
static int endcol=60; /* E x7 


void get hull cond(),get dock towdata(); 
void dock summary(),get dock data(),get name(),get dock resist(); 
void dock resist(),save dock file(),est disp(); 


extern float resist dat[(5]; 


/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk* 


This function displays the drydocks listed in Table G-4 of the U.S. Navy 
Towing Manual, gets the user's choice, and reads the appropriate data from 
the table based on that choice. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk*/ 


get dock(flag,choice,data,name,tow data) 
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inte *flag; /* status flag */ 


int *choice; /* drydock selection  */ 

float *data; /* array to hold drydock towing data from Table G-4 */ 
char *name; /* drydock name */ 

float *tow data; /* array to hold tow data */ 


{ 


int start; 


int choicel, status; 

FILE *in; 

char table[15] [35]; 

char text1[39],text2[39]; 


/* clear background */ 
clear(startrowtl,startcoltl,endrow-1l,endcol-1,REV VID); 


/* write header */ 
write header(startrow,startcol,endcol,header[O0],REV VID); 


if (£flag[2]) /* retrieve data from file */ 


( 


) 


status=get dock file(startrow,startcol,endrow,endcol,name, 
data, tow data); 
if (status<O) 
{ 
cursor off(); 
returne(=l)ę 
} 
est disp(O,data,tow data); 


else if (!flag[1] && !flag[2]) /* enter new data */ 


{ 


/* read drydock types from file */ 
in = fopen("dock str.dat","r"); 
read table(in,table,33); 
fclose(in); 


/* use popup function to display drydock choices */ 
*choice = popup (table, "",14,startrow+4, startcol+1,NONE, REV_VID, 0) ; 


7* check for ESC key */ 

if ( (*choice) < 0) 

{ 
status=get_dock (flag, choice, data,name,tow_data); 
return (0); 


/* read drydock name */ 
read class(*choice, table, name, 13) ; 


/* read data from file based on choice */ 
in = fopen("drydock.dat","r"); 

read data (in, *choice,data, 7); 

fclose (in)? 
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return (0); 


f| f Cede oe cec e e e e e e oe ec e N NX e e X e e e X N XX X e c N XN XN XX XN XX e e c oe N NX XN N N XN XN XN N N XX N X X N XX Ñ X N N 


This function displays a numerical scale for hull fouling and prompts 


the user for input. Based on that input, the drydock towing coefficient 
"fl" is assigned a value from 0.45 to 0.80. 


c e e ee Fe e e e ce ec e e e e Hec e e e e He e e e ec e e e e e e e e e e e e oe de e e e e e e e ec e ce de e ce e e e e e e e oe e e e e NXN NX NN XX X X / 


void get hull cond(tow data) 
float *tow data; 


( 


int row, col, i, key; 
int start; 


char string[81); 


/* draw background and border */ 
draw window(startrow,startcol,endrow,endcol,DOUBLE,REV VID); 


/* write header */ 
write header(startrow,startcol,endcol,header[1),REV VID); 


/* write labels */ 

start = (endcol - startcol)/2 + startcol; 

write string (startrowt5,startcolt3,label[O0],REV VID); 
write char(startrowt6,start,25,REV VID); 

write string(startrow*7,startcolt3,label[1),REV VID); 
write char(startrow+8,start,25,REV VID); 

write string(startrow*9,startcol*3,label[2],REV VID); 
write string(startrowtll,startcolt3,label[3),REV VID); 


/* create normal video box for data entry */ 
vid box(startrowtll,startcolt3tstrlen(label[5])-42,9); 


/* write footer */ 
start = (endcol-startcol-strlen(footer[0]))/2 + startcol; 
write string(startrowt13,start,footer[0],REV VID); 


f[. ORB ce ec / 


EN get hull condition i 
XNXX XNXX NX XN XN XXX X XN NX XN XXX XX N NX X X XNXX XNXX XN NX XX XNXX XNXX XN NN XX XX NX X / 
get dock data(4,startrowtll,startcolt3tstrlen(label[5))-*2,tow data); 
for (120; i<7; itt) 

write char(startrow+11,startcol+3+strlen(label[5])+2+i,' ^,REV VID); 
sprintf (string, "*7.1f",tow_data[4])); 
write string(startrow-*11l, startcolt3*strlen(label[5]),string,REV VID); 


/* erase prompt */ 
start = (endcol-startcol-strlen(footer[0]))/2 + startcol; 
for (i=0; i<strlen(footer[0]); i++) 

write _char(startrow+13,start+i,' ',REV_ VID); 


/* pause; wait for INS key before continuing */ 
pause(startrow,startcol,endrow,endcol,footer[4),REV VID); 
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/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


This function prompts the user for tow speed, wind speed, 

and relative wind direction. 
B WOW Koi ee dede ee eee e eoe ee eee dede oe en eoe e fee e ede e je dee eje e eee 
void get dock towdata(tow data) 
float *tow data; 
{ 

int row, col, i, key: 

int start; 

char string(81]; 


/* clear portion of window */ 
clear (startrow+tl, startcol+l,endrow-1, endcol-1,REV_ VID); 


/* write header */ 
write header(startrow,startcol,endcol,header[2],REV VID); 


/* write labels */ 

write string(startrowt7,startcol*3,label[4],REV VID); 
write string(startrowt9,startcolt3,label[5],REV VID); 
write string(startrowtll,startcolt3,label[6],REV VID); 


/* create normal video boxes for data entry */ 

vid box(startrowt7,startcolt3tstrlen(labe1[5])*2,6); 
vid_ box (startrowt9, startcol+3+strlen(label[5])+2, 6); 
vid box(startrow+11,startcol+3+strlen (label [5])+2,6):; 


/* write footer */ 
start = (endcol-startcol-strlen (footer[0)))/2 + startcol; 
write string(startrowtl3,start,footer[0],REV VID); 


/* write units */ 

write _string(startrow+7,endcol-4, "kts",REV VID); 
write string (startrow+t9, endcol-4, "kts", REV VID); 
write string (startrow+tll,endcol-4,"deg",REV VID); 


/* get data */ 
/* -- tow speed */ 
get dock data(l,startrowt7,startcolt3tstrlen(label[5])*2,tow data); 
for (i=0; i<7; i++) 

write char (startrowt7, startcol+3+strlen(label(5])+2+i,’ ',REV_VID); 
sprintf (string, "%7.1f£",tow data[1)); 
write string(startrow+7,startcol+2+strlen (label (5])+2,string,REV_VID); 


/* -- wind speed */ 
get_dock_data(2,startrow+9,startcol+3+strlen(label(5])+2,tow data); 
for (i=0; i<7; i++) 

write char(startrow+9, startcol+3+strlen (label [5])+2+i,”' ', REV VID); 
sprintf(string,"$7.1f",tow data[2]); 
write _string(startrow+9, startcol+t2+strlen(label[5])) +2, string, REV_VID); 


/* -- wind dir */ 
get dock data(3,startrowtll,startcolt3tstrlen(label[5])*t2,tow data); 
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for (i=0; 1<7; i++) 

write char (startrow+11, startcol+3+strien(labe1l(5))+2+i, ’ REY TE); 
sprintf (string, "%&7.1f£",tow data[3}); 
write_string(startrow+11,startcol+2+strlen(label(5])+2,string,REV_VID); 


/* erase prompt */ 
start = (endcol-startcol-strlen (footer[0)))/2 + startcol; 
for (1=0; i<strlen(footer(0)); i++) 

write char (startrowtl3,startti,' ',REV VID); 


/* pause; wait for INS key before continuing */ 
pause (startrow,startcol,endrow,endcol,footer[4],REV VID); 


[He ec e e e e e ee ee eee e ee eoe ee e e ke e e e ee e e oe 2.2.2 2 2.2.2.2 2.2 2.2 TOR e e 2.22 2 2.2 2.2 2.2 2 2 2. 2.2. 


This function displays a summary of input data and gives the user the 
opportunity to edit. 


Ce oc ce e e e ec e e e e e e e e e ke e eee ee e e e ee e e e e e ke e e ek e e e ec e je e e e e ee e e e e ee e e e e e e e e e e e ek xj 


void dock summary (choice,dock data,tow data, name) 


int *choilce; 
float *dock data; 
float *tow data; 
char *name; 


{ 


inc row, col, i, Key; 

int start; 

char string[81]; 

unsigned char *p; /* buffer for screen data */ 


/* clear portion of window */ 
clear (startrow+1, startcol+1,endrow-1,endcol-1,REV_VID); 


/* write header */ 


write header (startrow, startcol,endcol,header (3), ,REV_VID); 


/* write labels */ 

write string(startrow+5,startcol+3,"Name:",REV_VID); 

write string(startrow+7,startcol+3,"Hull condition:",REV VID); 
write string(startrowt9,startcolt3,label[4],REV VID); 

write string(startrowtll,startcolt3,label(5],REV VID); 

write string(startrowtl13,startcolt3,label[6],REV VID); 


/* write data */ 

write string(startrow+5,startcol+3+6, name, REV_VID); 

sprintf (string, "%7.1f£", tow _data(4)); 

write string(startrow+7, startcol+3+strlen (label [5}),string, REV_VID); 
sprintf (string, "*7.1£",tow_data(1])); 

write string(startrow+9,startcol+3+strlen (label (5]), string, REV_VID); 
sprintf (string, "%7.1£",tow data[2}); 

write string(startrowtll,startcolt3tstrlen(label[5]),string,REV VID); 
sprintf (string, "%7.1£',tow data[3]); 
write_string(startrow+13,startcol+3+strlen(label[5)]),string,REV_VID); 


/* write units */ 
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write string(startrowt9,startcolt3t*strlen(label[5])*9,"kts",REV VID); 
write string(startrowtll,startcolt34strlen(label[5])*9,"kts",REV VID); 
write string(startrowt*13,startcolt3tstrlen(label([5])*9,"deg",REV VID); 


/* write footer; prompt for confirmation of data */ 
/* write footer */ 
write string(endrow-2,startcol*3,footer[1],REV VID); 


/* create normal video box for data entry */ 
vid box(endrow-2,startcolt3tstrlen(footer[1]),4); 


/* get response */ 
get dock data (5,endrow-2,startcolt3tstrien(footer([1]),tow data); 


/* test if data correct */ 
if ( response(0]!2'y' && response[0]!'Y' && response[0]!-«*NULL ) 
( 


/NNNX XN NN NN XN NNN NN N NNN N NN NNN NN NNN NN N NNN NN NN NN NN NN NN NN NN N KNN NN / 


a edit data sy 

A555. 5.5.5.2.2.2. 2.2. 2.2.2.2. 2.2.2.2. 2.2.2. 2.2.2. 2 2. 2.2. 2.2.2. 2. 2.2.2.2. 2.2. 2.2.2. 2 2 2 2.2. 2.2.2. 2. 2 2 2 2. 2.2. 2 2.20. 

/* erase previous message */ 

mcaft = ataktcol + 3; 

for (i=0; i<strlen(footer[1)])+5; i++) 
write_char(endrow-2,start+i,' ',REV_VID); 


/* write quit message */ 
start=(endcol-startcol-strlen(footer[4]))/2 + startcol; 
write string(endrow, start, footer(4},REV_VID); 


/* write edit "menu" */ 
start=(endcol-startcol-strlen(footer[2]))/2 + startcol; 
write _string(startrow+15, start, footer[2),REV_VID); 
start=(endcol-startcol-strlen(footer[(3}))/2 + startcol; 
write string(startrow+16, start, footer(3),REV_VID); 


/* write function key indicators in NORM VID */ 

for(im0; i<2; i++) 

( 
astartm(endcol-startcol-strlen(footer[2]))/2 + startcol; 
write char (startrow+15,start+i, footer [2] (1] NORM_V1D); 
write char(startrowtl5,startt8ti,footer[2][i1*8],NORM VID); 
write char(startrowt15,startt*l6ti,footer[2][i*16],NORM VID); 
start=(endcol-startcol-strlen(footer[3]))/2 + startcol; 
write char(startrowtl16,startti,footer[3][i),NORM VID); 
write char(startrowt+16, start+8+i, footer (3) [i+8],NORM_VID); 


/* move cursor to Fl highlight */ 

cursor on(); 
starte(endcol-startcol-strlen(footer[2]))/2 + startcol; 
goto xy(startrowtl5,start); 


/* get user's choice */ 
Are (1) 
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key=get_special(); 
f RR a a / 
if (key==F1) /* drydock name */ 
( /*kkkkkkkkkkkkkkk/ 
cursor_off(); 
/* allocate enough memory for menu screen buffer*/ 
p = (unsigned char *) malloc (2* (endrow-startrow+l)* (endcol-startcol+tl)); 
if(!p) exit (1); /* install error handler here */ 


/* save the current screen data */ 


save_ screen (startrow, startcol, endrow, endcol,p); 
get_dock (choice, dock data,name) ; 


/* restore the original screen*/ 

restore screen(startrow, startcol, endrow,endcol,p); 
free(p); 
write_string(startrow+5,startcol+3+6, name, REV_VID); 


cursor_on(); 
startz(endcol-startcol-strlen(footer[2)))/2 + startcol; 
goto xy(startrowtl5,start); 


) j*xkkkkkkkkkkkkkkkk/ 
else if (key==F2) /* hull condition */ 
( /zkkkkkkkkkkkkkkkkk/ 


vid box(startrow+7,startcol+3+strlen(label[5)])+2,6); 
get dock data(0,startrowt7,startcolt3tstrlen(label[5])-*2,tow data); 
for (im0; i<7; i++) 
write char (startrow+7,startcol+3+strlen(label[5)])+1+i,' ',REV VID); 
sprintf (string, "%7.1£",tow_data[0]); 
write string(startrowt7,startcolt3tstrlen(label[5]),string,REV VID); 
cursor on(); 
start-(endcol-startcol-strlen(footer[2]))/2 * startcol; 
goto xy(startrowtl15,startt8); 
) IA a] 
else if (key==F3) /* tow speed */ 
( I ke k xk x / 
vid _box(startrow+9, startcol+3+strlen(label[5])+2, 6); 
get dock data(1,startrowt9,startcolt3tstrlen(label[5])*2,tow data); 
for (i=0; i<7; i++) 
write _char(startrow+9, startcol+j3+strlen(label[5])+l+i,' („REV VID); 
sprintf (string, "%7.1f",tow data[1l]); 
write_string(startrow+9, startcol+3+strlen(label[5)),string,REV_ VID); 
cursor_on(); 
start=(endcol-startcol-strlen(footer[2]))/2 + startcol; 
goto_xy(startrow+15,start+l6); 
) /jtkkkkkkkkkkkkk/ 
else if (key==F4) /* wind speed */ 
( f NO / 
vid box(startrow+11,startcol+3+strlen(label[5)])+2,6); 
get dock data(2,startrowtll,startcolt3tstrlen(1abel[5])*2,tow data); 
for (1-0) 14.7; itt) 
write char(startrow+11,startcol+3+strlen(label[5])+1+i,' ^,REV VID); 
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sprintf (string, "%7.1£", tow data(2]); 

write string (startrowtll, startcol+3+strilen(label(5)), string, REV_VID); 
cursor on(); 

startz(endcol-startcol-strlen(footer(3]))/2 * startcol; 

goto xy(startrowtl6,start); 


) f Fh / 


else if (key==F5) /* wind direction */ 
{ [RRR RK KK ke de kc e e ke ke ke / 
vid _ box(startrow+13,startcol+3+strlen (label (5])+2,6); 
get_dock_data(3,startrow+13,startcol+3+strlen(label[5])+2,tow data); 
for (i=0; i<7; itt) 
write char (startrowt+13, startcol+3+strlen(label[5])+1+1i, ’ I REV VID); 
sprintf (string, "%7.1f£",tow data(3]); 
write string(startrow+13, startcol+3+strlen(label(5)),string,REV_VID); 
cursor on(); 
start=(endcol-startcol-strlen(footer(3)))/2 + startcol; 
goto_xy(startrow+16,start+8); 
) 
else if (key==INSERT) 
( 
/* erase menu */ 
startz(endcol-startcol-strlen(footer(2]))/2 * startcol; 
for (iz0; i<strlen(footer(2])+1; i++) 
( 
write char(startrow+15,start+i,' ',REV VID); 
write char (startrow+16,start+i,' ',REV_VID); 
} 
/* erase message */ 
start = (endcol-startcol-strlen(footer(4]))/2 + startcol; 
for (i=0; i<strlen(footer[4]); i++) 
write char(endrow, start+i,205,REV_VID); 
break; 


) 
else /* no editing required */ 
{ 

/* erase previous message */ 

start = startcol + 3; 

for (iz0; i<strlen(footer(0))+4; i++) 

write char (endrow-2,start+i,' ',REV VID); 

) 
/* prompt to save data to file */ 
start = startcol + 3; 
write string(endrow-2,start,footer[5],REV VID); 
vid_box (endrow-2, start+strlen (footer [(5]), 4); 
get dock data(5,endrow-2,start*strlen(footer[5]),tow data); 


if ( response[0]!z'n' && response[0]!-'N' ) /* save data */ 
{ 
/* erase previous message */ 
start startcol + 3; 
for (i120; i<strlen(footer(5]))+4; i++) 
write char (endrow-2,start+i,' REV VID); 
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save dock file(startrow, startcol, endrow, endcol, name, 
dock data,tow data); 


f NR UOCGC e e e e e he e je e e e e e he e e e e e e ee e e e e e e he e e e he e e e e e e e e N NN ÑN NN XN NNN K NXN Ñ Ñ NX NK KN XK KK K K 


This function computes the towing resistance of a drydock based 
on the method in section G-2 of the U.S. Navy Towing Manual. 


9 e e e e e ec e NN NX NNN NNN NW NNN NNN NN NN NN XN XN NN NN NN NN NN NN NN N N NN N N NÑ NN NX NN XÑ NN NN NN Ñ K NN / 


float square(); 


void get dock resist(name,tug data,dock data,tow data,tension) 
char *name; 
float *tug data; 
float *dock data; 
float *tow data; 
float *tension; 
{ 
static char header[] = 
( 
"RESISTANCE" 
y; 


static char *label[] = 
( 
"Drydock:", 
"Table G-4 data", 
"WEIT", 
Ze SC 
"TD", 
Wetted surface area:", 
Cross sectional area", 
Below waterline:", 
Above waterline:", 
"Resistance", 
" "rictional:", 
Wave forming:", 
"  Wind:", 
Hawser:", 

Ç Total:" 
}; 


int row, col, i, key; 
int start; 
char string[81]; 


floát friction; 
float wave; 

float wind; 

fToNCt Il; 

float resistance; 
float haw res; 
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cursor off(); 


/* convert hull condition to f1 coefficient */ 
fl = tow data(4)/10.0 * (0.8 - 0.45) + 0.45; 


/* compute resistance */ 

friction e fl * dock_data[0) * square (tow _data[1]/6.0); 

wave = 2.85*dock data[1]*dock data[2)]*square(tow data[1])*1.2; 

wind = dock data[4]*0.004*square(tow data[1]*tow data[2])*dock data(3]; 
resistance = friction + wave + wind; 


/* save data for report */ 

resist dat(0)=wind; 

wave height (tow data[2],&resist dat[1]); 

resist dat[2)=wave; 

resist dat(3)=friction; 

resist dat(4)=0.0; /* no propeller resistance */ 


/* compute hawser resistance */ 
hawser resist (tug data, tow data[1], resistance, &haw res); 


/* compute total resistance */ 
*tension = resistance + haw res; 


f| fH e e e de 2. 2.2 2.2.2.2 2 2.2.2 2 2.2 2 2 2 2 2 2 2 2.2 2 2 2 2 2 2 2 2 2.2 2 2 2 2 2 2 2 2 e OK NX KN Ñ N N / 


/* display results o 


f IO e e / 


/* draw background and border */ 
draw window(startrow,startcol,endrow,endcol,DOUBLE, REV VID); 


/* write header */ 
write header(startrow,startcol,endcol,header,REV VID); 


/* write labels */ 
for (i=0; i<15; i++) 
write string(startrowt4ti,startcolt3,label[i],REV VID); 


f FN X NNN NN NN XN Ñ NXN N N N / 


/* write data */ 
f E / 


/* drydock name */ 
write string(startrowt4,startcolt3*tstrlen(label[0])*1,name,REV VID); 


aprintfistring,"s7.29fT",f1); [* EXER 
write string(startrowt6,startcolt3tstrlen(label[5]),string,REV VID); 


sprintf (string, "%7.2£",dock_data[l]); CELA 
write string(startrow+7,startcol+3+strlen(label(5)), string, PREV VID); 


Sprint £ (String,"27.2£",dock_data[3]); /* à @/ 
write string(startrow+8,startcol+3+strlen(label(5]) string, REV_VID); 
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sprintf (string, "%7.0f£", dock data[0]); /* wetted surface area */ 
write string(startrow+9, startcol+3+strlen(label(5]),string, REV VID); 


sprintf (string, "%7.0£", dock data[2)); /* below waterline cross sect */ 
write string (startrow+11, startcol+3+strlen(label([5)),string, REV VID); 


sprintf (string, "%7.0£", dock_data[4)); /* above waterline cross sect */ 
write string(startrow+12, startcol+3+strlen(label(5]),string,REV VID); 


Sprinter (string, "%7.0£", friction) /* frictional resistance */ 
write_string(startrow+14,startcol+3+strlen(label[5]),string,REV_VID); 


sprintf (string, "%7.0f£", wave) ; /* wave-forming resistance */ 
write string(startrowt15,startcolt3tstrlen(label[5]),string,REV VID); 


sprintf (String, "%7.0£", wind); /* wind resistance */ 
write _ string (startrow+t16, startcol+3+strlen(label[5]J), string, REV_VID); 


sprintf (string, "%7.0£",haw_res); /* hawser resistance */ 
write string(startrowt17,startcolt34strlen(label[5)),string,REV VID); 


sprintf(string,"$7.0f",resistance); /* total resistance */ 
write string(startrowt18,startcolt3t*strlen(label[5]),string,REV VID); 


/* write units */ 
write string(startrowt9,endcol-6,"sq ft",REV VID); 
write string(startrow+11,endcol-6,"sq ft",REV VID); 
write string(startrowt12,endcol-6,"sq ft",REV VID); 
for (1=0; i<5; i++) 

write string(startrow+14+i, endcol-6, "lbs",REV_ VID); 


/* pause; wait for INS key before continuing */ 
pause (startrow,startcol,endrow,endcol,footer[4],REV VID); 


f RR e e e e eoe e e he N NXN NN NN NN NN XX NN NX XX NN NN XNXX NNN XXX NNN NNN XN NN NX XN X N 


This function computes the square of a number. 
Y eoe ee ce e e ee e e e e c e e / 
float square(x) 
float x; 


return (x*x); 


rr NXN NN NXN NN XN NXN NN NNN NNN XNXX NX KX XNXX XX XX XNXX XX XX XX XN X XXX XX 


This function gets the user’s input for the data requested 
in the function get_hull_cond(). Uses screen getstring() for 
screen I/O. Some data checking is performed for each data type. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkikkkkkkk/ 
void get dock data(i,row,col,data) 
anita: 
int row? 


int col; 
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float *data; 


{ 


int ner; /* required arg for stofa */ 
int status; /* takes return value for stofa */ 
char string[24]; /* input string * / 
char text1[39], text2[39]; /* error message text */ 
INE > /* counters */ 
cursor on(); /* turn on cursor * / 
goto_xy (row, col); /* move cursor to start of box  */ 


/* get user input */ 
screen getstrg(i,row,col, string, NORM VID, input); 


Af (1 Vee 9) 
{ 
/* check for valid numeric input */ 
for (k=0; k<strlen(string); k++) 
{ 
if ( string[(k)==’.’ ) 
{ 
if (string(kt+1)==’.’) 
{ 
sprintf(textl, "Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid box(row,col,7); 
get dock data(i,row,col,data); 


return ; 


} 
else if (string(k]«'O' || string[k]»'9') 
( 
sprintf(textl,"Invalid entry; try again"); 
display error (ERROR, textl," de 
vid box(row,col,7); 
get dock data(i,row,col,data); 


return ; 


) 
/* if input valid numbers only, convert string to float */ 


status - stofa(string,&data[i],&nbr,1); 
) 
else if (i==5) 
{ 


strcpy (response, string); 


/* check data for consistency */ 
if (i==1) /* check towing speed */ 
{ 
if (data[i]<=0.0 || data[i]>12.0) 
{ 
sprintf (textl, "Invalid entry; try again"); 
display _ error (ERROR,textl," "); 


211 


) 


vid_box(row,col, 6); 
get dock data(i, row,col,data) ; 
return ; 
) 
else if (data(i]>10.0 66 data[i)<=12.0) 
( 
sprintf(textl,"Planned tow speed is higher than"); 
sprintf(text2,"normally recommended"); 
display error (WARN, textl,text2); 


if (i==2) /* check wind speed */ 


( 


) 


if (data[i]«O) 
( 
sprinef(text], "Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid box(row,col,6); 
get dock data(i,row,col,data); 
return ; 
) 
else if (data[(i]>48.0) /* 222? is this true with P-M spectrum ??? */ 
( 
sprintf(textl,"Outside range of Fig. G-2"); 
sprintf (text2,"=>please enter new wind speed<=") ; 
display error (ERROR, textl,text2); 
vid box(row,col,6); 
get dock data(i,row,col,data); 


return ; 


if (i223) /* check wind direction */ 


( 


if (data(i] <O) 

( 
sprintf(textl, "Use only positive angles"); 
display error (WARN,textl," "); 
data[(i] = -data(i]; 

) 

else if (data[i]>180.0 66 data(i]<360.0) 

( 
sprintf (textl,"Use angles between 0 and 180"); 
display error (WARN, textl, " A: 
data(i) = 360.0 - data[(i); 

) 

else if (data[i]>70.0 66 data[i]<110.0) 

( 
sprintf (textl, "No extreme tension data for beam seas"); 
sprintf (text2,"==> use angles < 70 or > 110 <=="); 
display error (ERROR, textl,text2); 
vid box(row,col,6); 
get dock data(i,row,col,data); 
return ; 
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else if (data[i]>360.0) 
{ 
sprintf (textl1, "Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid box(row,col,6); 
get dock data(i,row,col,data); 


return ; 
) 
) 
if (immd) /* check hull condition */ 
( 
if (data[i]«O.O || data[i]g»10.0) 


d 
sprint£(btextl, "Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid box(row,col, 6); 
get dock data(i,row,col,data); 


return ; 


cursor off(); 
goto xy(0,0); 
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This function estimates the displacement of floating drydocks 
and barges based on the assumptions: 
Cb = 0.8 
er 0.9 


Y eoe ene eoe e e e e e e e e e e e e e e e e e e e e e e e he e e e e NN NN NN NN NN NX X NNN NN NN N N NN NXN NN X NX N N X / 


void est disp(i,data,tow data) 
int 1; 

float *data; 

float *tow data; 


( 


float length,beam,draft; 


float coefb=#0.8; /* block coefficient */ 
float coefx=0.9; /* max section coefficient */ 
if (i==0) /* drydock */ 


( 
length=data [5]; 
beam=data[6]; 
draft = data[2)]/(coefx*beam); 
tow data[0] = length*beam*draft*coefb/35.0; 
} 
else /* barge */ 
( 
length=data[0]; 
beam=data[l]; 
draft=data([3); 
tow data[0] = length*beam*draft*coefb/35.0; 
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This function computes the mean tension of a floating 
drydock and its towing hawser. It duplicates the computations 
in the function get_dock resist(), but is intended as a stand 
alone function for use by other program modules. 

Ye oe eo dece e e e eo e e e e e e e e e e e e e e e e e HK e e e e e e de e e e N N NÑ NN e e e N X N NN NN NN NN XN NX / 
void dock resist(tug data,dock data,tow data,tension) 
float *tug data; 
float *dock data; 
float *tow data; 
float *tension; 
( 
float £1; 
facet friction; 
float wave; 
float wind; 
float resistance; 
float haw res; 


/* convert hull condition to fl coefficient */ 
fl = tow data[4]/10.0 * (0.8 - 0.45) + 0.45; 


/* compute resistance */ 

friction = £1 * dock data[0) * square (tow_data(1]/6.0); 

wave = 2.85*dock data(1]*dock data[2]*square(tow data[1])*1.2; 
wind s dock data[4]*0.004*square(tow data(1]*tow data[2]) *dock data[3]; 
resistance = friction + wave + wind; 


/* compute hawser resistance */ 
hawser resist (tug data,tow data[1]), resistance, &haw_ res); 


/* compute total resistance */ 
*tension = resistance + haw_res; 


Pes Ok KK RN RN KKK OR RR KN WRK KR RRR AR IA RARA e c e e 


This function retrieves tow data from a user specified file. 
YO dc 0 e e ede oe e e e o e e e e e e e e e e e e e e e e e e e e e e ee e e e / 
get dock file(startrow,startcol,endrow,endcol,hull no, 

dock data,tow data) 
int start row, Startcol; 
int endrow, endcol; 
char *hull_no; 
float *dock data; 
float *tow data; 
{ 

FILE *in; 

char fname[13]; 

char inline[(81):; 

char text1[39),text2[39]; 

int i,j,etatus,nbr; 
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float apr ay (2); 
int start; 


/* write header */ 
start = (endcol-startcol-strlen(label1(1)))/2 + startcol; 
write string(startrowt8,start,labell(1],REV VID); 


/* write prompt */ 
For (18607 i<2; i++) 
( 

start = startcol+3; 

write string (startrow+1l0ti, start, labell(it2),REV_VID); 
} 
vid box(startrowtll,starttstrlen(1abell[3]),9); 
ESrintF(texEl,"Type.'Q' to quit"); 
start = (endcol-startcol-strlen(textl))/2 + startcol; 
write string(endrow-3,start,textl,REV VID); 
get fname(6,1,startrowtll,startcolt3tstrlen(1abell(3]), fname); 


/* check for quit option */ 
if (fname[0)]zz'Q') 
( 

cursor off(); 

goto xy(0,0); 

return (-1); 


in=fopen(fname, "r") ; 
if (in==NULL) 
( 
sprintf(textl,"Can't open file %s", fname) ; 
display error (ERROR,textl," "); 
clear (startrow+8, startcol+l,endrow-3, endcol-1,REV VID); 
statussget dock file(startrow,startcol,endrow,endcol,hull no, 
dock data,tow data); 
return (0); 
) 
else 
( 
/* read data from file */ 
fgets(inline,81,in); 
strstrip(inline); 


/* test for valid tow file */ 
if (!(strncmp(inline,"! Tow data file",15))) 
( 

fgets (inline, 81,in); 

fgets (inline, 81,in)}; 

strstrip(inline); 


/* test if drydock file */ 
if (strncmp (inline, "DRYDOCK", 7) ) 
( 


sprintf (textl1,"%s is not a", fname); 
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) 


sprintf(text2,"drydock data file!"); 

display error(ERROR,textl,text2); 

clear (startrowt8,startcol*l,endrow-3,endcol-1,REV VID); 

statussget dock file(startrow,startcol,endrow,endcol,hull no; 
dock data,tow data); 8 

return (0); 


/* get hull number */ 

fgets (inline, 81,in); 

fgets (inline, 81,in); 
strstrip(inline) ; 

strncpy (hull _no,inline, 24); 
strstrip(hull no); 


/* read remaining tow data */ 

for (i=0; i<5; i++) 

{ 
fawts (inline, 81, in); 
fgets (inline, 81,in); 
status=stofa(inline, array, &nbr, 1); 
tow data[i)zarray(0]; 


/* read drydock data */ 

for (i=O; i<7; i++) 

( 
fgets (inline, 81,in); 
fgets (inline, 81,in); 
status=stofa(inline,array, &nbr,1); 
dock data(i)]zarray(0]; 

) 

fclose(in); 


else 


{ 


sprintf (textl,"%s is not a tow data file!", fname) ; 

display error (ERROR, textl," Hs 

Clear (startrow+8, startcol+1, endrow-3, endcol-1,REV VID); 

status=get dock file(startrow,startcol,endrow,endcol,hull no, 
dock data,tow data); 

return (0); 


return (0); 
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This function writes the tow data for floating drydocks to 
a user specified file. 
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void save dock file(startrow,startcol,endrow,endcol,hull no, 


dock data,tow data) 


int startrow,startcol,endrow,endcol; 
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char *huldlno:; 
float *dock data; 
float *tow data; 


( 


FILE *out; 

char fname[13]; 

char string[25]; 
char text1[39]; 

int start; 


/* prompt for file name */ 

start = startcol + 3; 

write string(endrow-2, start, footer(6],REV VID); 
vid box(endrow-2, start+strlen (footer[6])+4,9); 


get fname(6,1,endrow-2,starttstrlen(footer[6])-*4,fname); 
out=fopen (fname, "w") ; 


if (out==NULL) 

( 
sprintf (textl,"Can’t open file %s", fname); 
display error(ERROR,textl," "); 
save dock file(startrow,startcol,endrow,endcol,hull no, 

dock data,tow data); 

return; 

) 

else 

( 
/* write tow data to file */ 
fprintf(out,"! Tow data file\n"); 
fprintf (out,"! Tow type:\n"); 
fprintf (out, "DRYDOCK\n"); 


fprintf (out,"! Hull number:\n"); 
Eprintf (out, "%s\n",hull no); 


fprintf(out,"! Estimated displacement:\n") ; 
sprintf (string, "%-.1f\n", tow data(0)); 
fprintf (out, "%s", string) ; 


fprintf(out,"! Tow speed (kts):\n"); 
sprintf (string, "%-.1f\n",tow_data[1]); 
fprimet (ont, "%3", string); 


fprintf(out,"! Wind speed (kts) :\n"); 
sprintf (string, "%-.2f\n",tow data[2]); 
JPEJNEENONE, ts", string) ; 


fprintf(out,"! Relative wind dir:\n"); 
sprintf (string, "%-.2f\n",tow data[3]); 
fprintf (out, "%s", string); 

fprintf (out, "! Hull condition:\n"); 


sprintf (string, "%-.2f\n",tow_data[4]); 
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EE MELT (OU, ts", string) > 


/* write drydock data to file */ 
fprintf(out,"! Wetted surface area:\n") ; 
sprintf (string, "%~.0f\n", dock data[0]); 
Eprints (out, "se", String) > 


fprinef (out,'! Form factor (£2):Nn"); 
Sprintf (string, "%-.2f\n", dock _data[1)); 
fprintf (out, “VSU, string); 


fprintf (out,"! Cross-sectional area below waterline (B):\n"); 
sprint£ (string, "+-.2fin",dock_data[2)); 
fprintf (out, "%3", string); 


TEE GE (out, Wind coefficient (f3):\n"); 
sprintf (string, "%-.2£\n",dock_data[3]); 
fprintf (out, "s", string); 


fprintf (out,"! Cross-sectional area above waterline (C):\n"); 
sprintf (string,"$-.0fNn",dock data[4]); 
fprintf (out, "%s", string); 


fprintf (out,"! Drydock length:\n"); 
Speincimsering, "t-.1f\n", dock data[5]); 
Ferintf(seut, =", string); 


fprintf (out, "! Drydock beam:\n"); 
sprintf (string, "t-.1f\n",dock_data[6]); 
SBEINCE(CUC, "%s", string); 

) 


fclose (out); 


218 





f RC e he ce ce ec e e e ec e ce ec e e e echec ce e e e e e e e e e e e e e e e je e e eoe e e ec e e e U I N 
File: barge.c 
Author: Todd J. Peltzer 
Last update: 3 May 1989 


This file contains the functions which support computation of the 
resistance of floating drydocks and barges. 
Functions: 
get barge resist() 
barge resist() 
get barge data() 
barge summary () 
save barge file() 
get barge file() 
X Xo ec e e e e e e e e c c e cc e e e e e oe e e e e ee e ce e e c N NX NNN / 
#include "stdio.h" 
#include "dos.h" 
#include "keydef.h" 
#include "video.h" 


#define RAKE O 
łdefine SHIPSHAPE 1 
#define SQUARE 2 


void get barge data(), barge_ summary (); 
void barge resist(),save barge file(); 
float square(); 


typedef struct 
{ 
int startcol; 
int endcol; 
} data_box; 


static data box input[] - 


( 


(42,55), /* name (dimension) */ 
(40,53), /* name (summary) x / 
{46,52}, /* hull length * / 
(46,52), /* beam * / 
(46,52), /* hull depth a 
(46,52), /* draft x, 
(46,52), /* deckhouse length */ 
(46,52), /* deckhouse width  */ 
(46,52), /* deckhouse height */ 
(54,58) /* yes/no choice * / 


es 
static char response[4]; 
static char *footer[] = 


{ 


"Please enter data.", 
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"Is all data correct? (yes/no): ", 
"Fl Name F2 Hull F3 Tow", 

"F4 Wind F5 Rel", 

" Press INS to continue ", 

" Save data to file? (yes/no): ", 


" Enter tow file name: " 


static char *label[] = 
{ 
"Name or hull no:", 
"Hull dimensions", 


"  Length:", 

"  Beam:", 

s DeSEh:", 

"seDraftt:", 

"Deckhouse dimensions", 
" aLength<", 

>» awidtha", 

" Height:", 


"End shape:" 


static char *labell[] = 
{ 
"Name or hull no:", 


"Data corresponding to Table G-4", 


tt fle. 
tt Esa, 
e" fg" 


" Wetted surface area:", 
Cross sectional area", 
i Below waterline:", 
Above waterline:", 
"Resistance", 

". Frietloma]l:", 
Wave_forming:", 
"Wind: 

Hawser:", 

af Totals" 


static char *menu[) = 
{ 
"Rake ended  ", 
"Ship ended  ", 
"Square ended" 


); 


static char *label2[] = 
( 
"Options", 
"Retrieve File", 
"Enter name of tow file", 
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"to retrieve (8 char max): " 


es 


static char *menul[) = 
{ 
"l) Enter new data RW 
"2) Edit existing data", 
"3) Retrieve data file" 
j? 
int startrow=2; 
startcol=20; 
endrow=22; 
endcol=60; 


static 
static int 
static int 
&tatic int 
static 
( 
"BARGE DATA", 
"DATA SUMMARY", 
"RESISTANCE" 


); 


char *header(] = 


extern float barge res(6],resist datí(5]; 


/* arrays for report data */ 
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This function prompts the 


and deckhouse (and allows editing), 


user for the dimensions of the barge hull 
then prompts for the hull condition, 


the tow speed and wind speed, prints a summary of input data (and allows 


editing), 
a summary. 


then computes the towing resistance of the barge and prints 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


get barge resist(flag,name,tug data,tow data,barge data,tension) 


Ent *flag; 
char *name; 


float *tug data; 

float *tow data; 

float *barge data; „a 

float *tension; 

{ 
int row, col, i, key; 
int start,choicel, status; 
char string(81]; 
char text1(39],text2(39]; 
float vtow; Ve 
float vwind; SEL 
float £1, f2,f3; j= 
float wet surf; Lx 
float uw xsect; /* 
float abv xsect; x 
float hlength; bes 
float beam; Ad 
float depth; f= 
float draft; fx 
float dlength; 2 


hull dim (4), dkhs dim (3), end shape */ 


a 


wind speed */ 


tow speed 


resistance coefficients */ 

wetted surface area */ 

underwater cross-sectional area */ 
abovewater cross-sectional area */ 
hull length */ 

hull beam */ 

hull depth  */ 

full load draft  */ 

deckhouse length */ 
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foat width; /* deckhouse width  */ 
f»at height; /* deckhouse height */ 
ic end shape; 

foat friction; 

foat wave resist; 

f»at wind resist; 

foat resistance; 

foat haw res; 


i (!flag(1)) /* barge data does not exist */ 


X initialize data */ 
For (i=0; i<8; i++) 
barge data[i] = 0.0; 


/ clear background */ 
ciar (startrow+1,startcol+1,endrow-1,endcol-1,REV_VID); 


/ write header */ 
wite header(startrow,startcol,endcol,header[0],REV VID); 


i (!flag({1) && !flag(2)) /* enter new data */ 
{ 

lear (startrow+5, startcol+1,endrow-3,endcol-1,REV_VID); 
) 
ese if (flag{1) && !flag(2)) ; /* edit existing data */ 
ese if (flag[2]) /* retrieve data from file */ 
{ 

tatus-get barge file(name,barge data,tow data); 

£ (status<0) 


cursor off(); 
flag(2)=0; 
return (-1); 


st disp(l,barge data,tow data); 
} 
clar (startrow+5, startcol+1,endrow-3,endcol-1,REV_VID); 


/*write labels */ 

fc (i=0; i<10; i++) 
rite_string(startrow+5+i, startcol+5, label[i],REV_VID); 

wrte string(startrow+16, startcol+5, label[10],REV_VID); 


/*4rite units */ 
fo (i=0; i<4; i++) 

rite string(startrow+7+i, endcol-5, "ft", REV_VID); 
fc (i=0; i<3; i++) 

rite string(startrowtl2*i,endcol-5,"ft",REV VID); 


if(flag(1) || flag(2]) /* display data */ 


( 
rite string (startrow+5, startcol+5+strlen (label[0])+2,name, REV_VID); 
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} 


start=startcol+5+strlen(label(6))+1; 


for (i=0; i<4; i++) 
{ 
sprintf (string, "%7.1f£",barge data[i]); 
write string (startrowt+7+i, start, string, REV VID); 
} 
for (i20; 1<3; i++) 
{ 
sprintf (string, "%7.1f£",barge data[it+4]); 
write string(startrowtl2+i, start, string, REV_VID); 
} 
if (barge data[7] == RAKE) 
{ 
write string(startrowtl16,starttl,menu[0],REV VID); 
} 
else if (barge data[7]) == SHIPSHAPE) 
{ 
write string(startrowtl6,starttl,menu[1)],REV VID); 
} 
else if (barge data[7] == SQUARE) 
( 
write string(startrowt16,starttl,menu[2],REV VID); 
) 


else if (!flag(1] 66 !flag[2]) /* enter new data */ 


( 


/* write footer */ 
start = (endcol-startcol-strlen (footer[0)))/2 + startcol; 
write string(endcol-2,start, footer[(0],REV VID); 


/*kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 

w get data <7 

[BR HH HK HK I III TOK IK IKI ITI IK IIIT KKK I IK KK KK / 

/* get name */ 

vid box(startrowt5,startcolt5tstrlen(label[O])*1,14); 

get barde data(0,startrowt5,startcolt5tstrlen(label[O])-*1,name,barge data); 

for (i=0; i<15; i++) 
write_char(startrow+5,startcol+S+strlen(label(0])+1+1,' ',REV_VID); 

write string(startrowt5,startcolt5t*strlen(label[0])*2,name,REV VID); 


start=startcol+5+strlen(label[6]) +1; 


/* get hull length */ 
vid box (startrow+t7, start, 7); 
get_barge data(2,startrow+t7,start,name,barge_ data); 
for (i=0; i<7; i++) 

write char(startrowt7,startti,' ',REV VID); 
sprintf (string, "$7.1£",barge data(0]): 
write string(startrow+7, start, string, REV_VID); 


/* get beam */ 
vid_box(startrow+8, start, 7); 
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get barge data(3,startrowtB8,start,name,barge data); 
for (180; i<7; itt) 

write char(startrowt8,startti,' ',REV VID); 
sprintf (string, "%7.1f",barge data(1)); 
write string(startrow+8, start, string, REV VID); 


/* get hull depth */ 
vid_box(startrow+9,start, 7); 
get barge data(4,startrowt9,start,name,barge data); 
for (i=0; i<7; itt) 

write_char (startrow+9, start+i,’ ’,REV_VID); 
sprintf (string, "%7.1f",barge_data[2)); 
write string(startrowt9, start, string, REV VID); 


/* get draft */ 
vid_box(startrow+10,start, 7); 
get barge data(5,startrowt10,start,name,barge data); 
for (1=0; i<7; i++) 

write char(startrowtlO,startti,' ',REV VID); 
wprintfistring,"$7.1f",bargé'data[3]):; 
write string(startrowt10,start,string,REV VID); 


/* get deckhouse length */ 
vid_box(startrow+12,start, 7); 
get_barge_data(6,startrow+12, start, name,barge data); 
for (i=0; i<7; i++) 

write char(startrowtl2,start+i,’ ',REV VID); 
sprintf (string, "%7.1f£",barge data([4)); 
write string(startrowt12,start, string, REV_VID); 


/* get deckhouse width */ 
vid box(startrowt13,start,7); 
get barge data(7,startrowtl3,start,name,barge data); 
for (i=0; i<7; itt) 

write char (startrowtl3,startti,' ',REV VID); 
sprintf (string, '"%7.1£",barge_data[5]); 
write string (startrow+tl13, start, string, REV_VID); 


/* get deckhouse height */ 
vid box (startrow+tl4,start, 7); 
get barge data (8,startrowtld, start, name, barge data); 
for (i=0; 1<7; i++) 

write char(startrow+14,start+i,” ',REV VID); 
sprintf (string, "%7.1f£",barge data[6)); 
write string(startrow+14, start, string, REV_VID); 


/* get end shape */ 
start = startcol+5+strlen (label[8)) +7; 
barge data[7) = popup(menu, "",3,startrowt15, start, SINGLE, REV VID, 0); 


if (barge_data(7) == RAKE) 


{ 
write string(startrow+16,start+1,menu(0),REV_VID); 
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else if (barge data(7) == SHIPSHAPE) 
{ 
write string(startrowt*16,start*l,menu[1],REV VID); 
) 
else if (barge data(7] == SQUARE) 
( 
write string(startrow*16,start*1,menu[2],REV VID); 


f| NC eee de ko ecce e ko kk e e e e ec e e e e e e e e e ke e e e e e e e oe eoe Ñ N e e RE RR RR RR RR RR RR ROK RR Ry 


(el prompt user for confirmation of data; give edit option 27 
N RR TUR / 
start = startcol+3; 

write string(endrow-2,start,footer[1],REV VID); 

vid box(endrow-2,startt*strlen(footer[1]),4); 

get barge data(9,endrow-2,starttstrlen(footer[1]),name,barge data); 


/* test if data correct */ 
if ( response[0]!s'y' && response[0]!-'Y' && response[(0)!=NULL ) 
( 
/* erase previous message */ 
start = startcolt3; 
for (i=0; i<strlen(footer[(1))+4; i++) 
write char (endrow-2,start+i,’ ’,REV_VID); 


/* write quit message */ 
start=(endcol-startcol-strlen (footer[4)))/2 + startcol; 
write _string(endrow, start, footer [4], REV_VID); 


/* write function key indicators in NORM_VID */ 
write string (startrow+t5, startcol+2, "F1",NORM VID); 
write _string(startrow+t7,startcol+t2, "F2",NORM VID); 
write string(startrowt+8, startcol+2, "F3",NORM VID); 
write string(startrowt*9,startcol*2,"F4",NORM VID); 
write string(startrow+l0,startcol+2,"F5",NORM_ VID); 
write string(startrow+12,startcol+2,"F6",NORM_VID); 
write string(startrow+13,startcol+2,"F7",NORM_VID); 
write string(startrow+14,startcol+2,"F8",NORM_VID); 
write string(startrow+16,startcol+2,"F9",NORM_VID); 


/* move cursor to Fl highlight */ 
cursor on(); 
goto xy(startrowt5, startcolt2); 


/* get user's choice */ 
while (1) 
( 
start=startcol+5+strlen(label([6)) +1; 
key=get special (); 
[RII IO IO TOR TORII I IK IKK / 


if (key==F1) /* hull name or number */ 
{ f FR €] 


vid box(startrowt5,startcolt5tstrlen(label[0])71,14); 
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) 


get barge data(0,startrowt5,startcolt5tstrlen(label[0])-*1,name,barge data); 
for (i=0; i<15; i++) 

write char(startrow+5,startcol+5+strlen(label(0])+1+i,' ',REV VID) ; 
write string(startrow+5,startcol+5+strlen(label(0])+2,name, REV VID); 
cursor on(); 8 


goto_xy(startrow+5, startcol+2); 
/**tkkkkkkkkkkkkk/ 


else if (key==F2) /* hull length */ 


{ 


} 


f Fee de ke de e ee ke / 
vid_box(startrow+7,start, 7); 
get_barge_data(2,startrow+7,start,name, barge data); 
for (i=0; i<7; i++) 

write char(startrowt7,startti,' ',REV VID); 
sprintf(string,"$7.1f",barge data[0]); 
write string(startrowt7,start,string,REV VID); 
cursor on(); 
goto _xy(startrow+7,startcol+2); 


/* check deckhouse length for consistency with this input */ 
if (barge data[4]»barge data[0]) /* is greater than hull length */ 
{ 

sprintf (textl, "Deckhouse is longer than hull"); 

sprintf (text2, "==> please try again <=="); 

display error (ERROR, textl,text2); 

vid box (startrow+tl2,start, 7); 

get barge data(6,startrowtl2,start,name,barge data); 

for (i=0; i<7; i++) 

write char (startrowtl2,startti,' ',REV VID); 

sprintf (string, "%7.1f£",barge data(4]); 

write string(startrowtl2, start, string, REV_VID); 

cursor on(); 

goto xy(startrowtl2,startcol-*2); 


/zkkkkkk*k/ 


else if (key==F3) /* beam */ 


{ 


/****kxkkxkx/ 


vid_box(startrow+8,start, 7); 
get_barge_data(3,startrow+8,start,name,barge data); 
for (i=0; i<7; i++) 

write_char(startrow+8,start+i,' ',REV VID); 
sprintf (string, "%7.1f",barge_data[1]); 
write string(startrowt8,start, string, REV_VID); 
cursor on(); 
goto xy(startrowt8,startcolt2); 


/* check deckhouse width for consistency with this input */ 
if (barge_data[5)]>barge_data[1]) /* is greater than beam */ 
( 

sprintf(textl,"Deckhouse is wider than beam"); 

sprintf (text2,"==> please try again <=="); 

display error (ERROR, textl,text2); 

vid_box(startrow+13,start, 7); 

get barde data(7,startrow*13,start,name,barge data); 

for (i0? i«7; itt) 
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} 


write char (startrowtl3,startti, ’ ',REV VID); 
sprintf (string, "%7.1£f",barge_data[5)); 
write _ string (startrow+tl3, start, string, REV_VID); 
cursor on(); 
goto xy(startrowtl3,startcol*t2); 


/ ke ARRAY 


else if (key==F4) /* hull depth */ 


( 


) 


/**kkkkkkkkkkkk/ 

vid box (startrow+9, start, 7); 
get_barge_data(4, startrow+9, start, name, barge_ data); 
for (i=0; i<7; i++) 

write char(startrowt9,start+i,’ ',REV_VID); 
sprintf (string, "%7.1f£",barge data[2)); 
write string(startrow+9, start, string, REV_VID); 
cursor on(); 


goto xy(startrowt9, startcol+2); 
/*k**kkkkxkx/ 


else if (key==F5) /* draft */ 


( 


) 


/hk*k*kxkkx/ 

vid_box(startrow+10,start, 7); 
get barge data (5,startrowt10, start, name, barge data); 
for (i=0; i<7; i++) 

write char(startrowtlO,startti,' ',REV VID); 
sprintf(string,"$7.1f",barge data[3]); 
write _string(startrow+10,start,string,REV_ VID); 
cursor on(); 


goto_xy(startrow+10,startcol+2); 
/*tkkkkkkkkkkkkkkkkkk/ 


else if (key==F6) /* deckhouse length */ 


( 


) 


/ttkkkkkkkkkkkkkkkkkk/ 


vid box(startrowt12,start,7); 
get barge data(6,startrowtl12,start,name,barge data); 
for (i=0; i<7; i++) 

write char(startrow+12,start+i,' ',REV VID); 
sprintf (string, "*%7.1f",barge data[4]); 
write string(startrow+12,start,string,REV_VID); 
cursor on(); 


goto xy(startrowtl2,startcolt2); 
f ke e e e e e kk kk à kn xà 


else if (key==F7) /* deckhouse width */ 


{ 


} 


f 8 Ck ke de dee ee e kk e x x / 


vid box(startrow+13,start,7); 
get barge data(7,startrowt13,start,name,barge data); 
for (i=0; i<7; i++) 

write_char (startrowł13, start+i,’ ’,REV_VID); 
sprintf (string, "%7.1f£",barge data([5]); 
write string(startrowt13, start, string, REV VID); 
cursor on(); 


goto xy(startrowt13,startcol*2); 
f RC de e ee de ke ek ke e e e kx kx x 


else if (key==F8) /* deckhouse height */ 


{ 


f f KK KKK KR RR Re / 


vid _box(startrow+14, start, 7); 
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get barge data(8,startrowtl4,start,name,barge data); 
for (3x0; i47; itt) 

write char(startrowtl4, start+i,’ ',REV VID); 
sprintf (string, "%7.1f£",barge data[6]); 
write string(startrowt+14, start, string, REV VID); 
cursor on(); 
goto xy(startrowtld,startcolt2); 


) f * e e | sk k x 

else if (key==F9) /* end shape */ 

{ / k*** ese s f e x / 
start = startcol+5+strlen(label[8]) +7; 
barge_data[7] = popup (menu, "",3,startrow+15,start,SINGLE, REV_VID, 0); 
if (barge data(7] == RAKE) 


{ 
write string(startrowtl6,starttl,menu[0],REV VID); 
} 
else if (barge data(7] == SHIPSHAPE) 
{ 
write string(startrow+16,start+1,menu(1],REV_VID); 
) 
else if (barge data(7) == SQUARE) 
{ 
write string(startrow+16,start+1,menu(2],REV_VID); 
) 
cursor on(); 
goto xy(startrowtl6,startcolt2); 


) f AAN d c e e ex f 
else if (key==INSERT) /* quit edit */ 
{ f Fk ke ke s de kk x / 


/* erase function key highlights */ 


write _ string (startrow+5, startcolt2,"  ",REV VID); 
write string(startrowt+7,startcol+2," ",REV_VID); 
write string(startrow+8,startcol+2,"  ",REV VID); 
write string (startrowt9,startcolt2, " ",REV VID) ; 
write string(startrowtlO,startcol*2,"  ",REV VID); 
write string(startrowtl2,startcol42,"  ",REV VID); 
write string(startrow-tl3,startcol*2,"  ",REV VID); 
write _ string (startrowtl4,startcol+t2,"  ",REV VID); 
write string(startrow+16,startcol+2," “REM VID) 


/* erase quit message */ 
start - (endcol-startcol-strlen(footer[4]))/2 + startcol; 
for (i120; i<strlen(footer[4])); i++) 
write char (endrow, start+i,205,REV_VID); 
break; 


} 
cursor off(); 
} 
else /* editing not required */ 
{ 
/* erase previous message */ 
start = startcol + 4; 
for (i=0; i<strlen(footer(1])+4; i++) 
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write char (endrow-2,startt+i,’ ',REV VID); 


if (!flag(1) && !flag[2)) 
( 


f RR e e e e / 


/* get hull condition and tow data; * / 
/* estimate displacement * / 
/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk*kk/ 
/* use same functions as used for drydocks */ 
get hull cond(tow data); 


get dock towdata(tow data); 


est disp(l,barge data,tow data); 


/zzkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


x display summary; give edit option */ 
f NC ke e ke e e e e e e oe e ec e e e eoe eoe e ee e e e oe ee oe e X XN NXN XXX XX XNXX NNN NN XX N e XXX N KOEK 


barge summary (barge data,tow data,name); 


[RIK KKK ec e e NXN XN NN XN NX XNXX XXX XXX XX XX N XXX XN NN NN NN e e e e e e e e e e S de e e x / 


/* compute barge resistance KE 
f NO e e c e e e e e e hh e e e c he he N XNXX XX XN NN XX N N NXN N NX XN XN NX XX XN NX XX XN X / 
vtow = tow data(1]; 

vwind = tow data[2); 

hlength = barge data(0); 

beam - barge data[1]; 

depth = barge data([2); 

draft = barge data(3]; 

dlength = barge data([4J; 

width = barge data([5); 

height = barge data([6]; 

end_shape = barge data([7]; 


/* determine EL, £2, £3 */ 

£1 = (tow data[(4)/10.0)*(0.8 - 0.45) + 0.45; /* hull condition */ 
barge res(0)=f1; 

if (end_shape==0 || end_shape==1) 

{ 


£2 4045245 /* rake or ship-ended */ 
} 
else 
{ 

f2 wa 70,5, /* square-ended */ 


} 

barge res(1ljJ=f2; 

£3 = 0.60; /* average barge value per Section G-3.2 */ 
barge res(2)=f3; 


/* compute frictional resistance */ 


wet surf = (hlength*beam) + 2.0* (hlength+beam) *draft; 
barge res[3]-wet surf; 
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vtow = square (vtow/6.0); 
friction EL * wet surf * vtow; 
resist _dat(3]=friction; 


/* compute wave resistance */ 

uw_xsect = (beam*draft) ; 

barge res(4)=uw_xsect; 

wave resist = 2.85 * uw xsect * f2 * square(vtow) * 1.2; 
resist dat[2]-wave resist; 

wave height(vwind,&resist dat[1]); 


/* compute wind resistance */ 

abv_xsect = (depth-draft) *beam + height *width; 

barge res[5]-abv xsect; 

wind resist - abv xsect*0.004*square(vtowtvwind)*f3; 
resist dat(0]zwind resist; 


/* compute total resistance */ 
resistance = friction + wave resist -+ wind_resist; 


resist dat[4]=0; /* no propeller resistance */ 


/* compute hawser resistance */ 
hawser resist (tug_data,tow data[1]), resistance, &haw res) ; 


/* compute total resistance */ 


*tension = resistance + haw res; 


f| Nee ede cede ce ee je e e e c e k e e e je e e e e e NXN NN X N NXN NAN e e e e e N NXN NN NN NN NN X X k 


/* display results */ 


/*kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


/* clear portion of window */ 
clear(startrowtl,startcoltl,endrow-1,endcol-1,REV VID); 


/* write header */ 
write header(startrow,startcol,endcol,header[2],REV VID); 


/* write labels */ 
for (i=0; 1<15; i++) 
write string(startrowt4ti,startcolt3,labell[i],REV VID); 


f. Ke dee koe e e ek e e dede de de k / 


/* write data */ 
j*kkkkkkkkkkkkkkkkkkkkkk/ 


/* barge name */ 
write string(startrow+4,startcol+3+strlen(label1(0])+1,name, REV_VID); 


Sprimtf (string, "%7.2f", £1); ¡ETE 
write string(startrow+6,startcol+3+strlen(label1(5]),string,REV_VID); 


Sprint mstring, "%7.2£", £2); LIEZEN] 
write string(startrowt7,startcolt34strlen(labell[5]),string,REV VID); 


Sprint’ (sering, "%7.2£", £3); ES */ 
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write_string(startrow+t8, startcolt3+strlen(labell[5]), string, REV_VID); 


sprintf(string,"$7.0f",wet surf); /* wetted surface area */ 
write string(startrowt9,startcolt3t*strlen(label1(5]),string,REV VID); 


sprintf(string,"$7.0f",uw xsect); /* below waterline cross sect */ 
write string(startrow*11,startcolt3tstrlen(labell(5]),string,REV VID); 


sprintf(string,"$7.0f",abv xsect); /* above waterline cross sect */ 
write _string(startrow+12, startcol+3+strlen(label1l(5)),string, REV VID); 


c rntfimtring, *7.0£f", friction); /* frictional resistance */ 
write string(startrowtl4,startcolt3tstrlen(label1(5]),string,REV VID); 


sprintf (string, "%7.0£", wave resist); /* wave-forming resistance */ 
write string(startrowtl5,startcolt3tstrlen(label1[5]),string,REV VID); 


sprintf (string, "%7.0f",wind resist); /* wind resistance */ 
write string(startrowtl6,startcolt3tstrlen(labell[5]),string,REV VID); 


sprintf(string,"$7.0f",haw res); /* hawser resistance */ 
write string(startrowtl7,startcolt3tstrlen(labell[5]),string,REV VID); 


sprintf (string, "%7.0f£", *tension) ; /* total resistance */ 
write string(startrowt18, startcolt3tstrien(label1(5]), string, REV VID); 


/* write units */ 
write string(startrow+9,endcol-6,"sq ft",REV VID); 
write string(startrow-*11,endcol-6,"sq ft",REV VID); 
write string(startrowt12,endcol-6,"sq ft",REV VID); 
for (120; i<5; i++) 

write string(startrowtl4ti,endcol-6,"lbs",REV VID); 


/* pause; wait for INS key before continuing */ 
pause (startrow,startcol,endrow, endcol,footer[4],REV VID); 


return (0); 


f Roe echec de dee e de dece e e e e e ee he e e e e ce e je e e e e e e e je X X XX NX XKX e je e e e e ec e e e e c e e e e e e e e e e de de e d e e x 


This function gets the user's input for the data requested in the 
function get barge resist(). Uses screen getstrg() for screen I/O. Some 
data checking is performed for each data type. 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
void get barge data (i, row,col,name, data) 

int i; 

int row; 

intwcol; 

char *name; 

float *data; 

( 


int nbr; /* required arg for stofa */ 
int status; /* takes return value for stofa */ 
charespring(13]: /* input string * / 
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char text1(39), text2[39); /* error message text * / 
imt jp K /* counters Ee 
int length; 


cursor on(); /* turn on cursor Wi 
goto xy(row,col); /* move cursor to start of box  */ 


/* get user input */ 
screen getstrg(i,row,col,string,NORM VID,input); 


if (izzO || iz»1) /* barge name or hull number */ 
{ 
/* convert input string to upper case; output to name */ 


slcetouc (string, name); 


/* ensure hull number is in proper format */ 
/* -- first copy name */ 
strcpy(string,name); 


/* -- ensure space between hull type and number */ 
length=strlen (name) ; 
for (3=0; j<length; j++) 
{ 
if (name[j)»-'O' && name(j]<='9') 
( 
if (name(3-1] == '-') 
{ 


mW [j-1] m^ '; 
break; 
) 
else if (name(j-1)] != ' ') 


{ 
scring(jj = ° "> 
for (k=3+1; k<=strlen(name); k++) 
string(k] = name[k-1); 
string(k) = NULL; 
slctouc (string, name); 
break; 
) 
else 


( 
break; 


) 
else if (i>l 66 i<9) 
( 
/* check for valid numeric input */ 
for (k=0; k<strlen(string); k++) 
{ 
lf'"QNtring[k]es'.' ) ; 
else if 4string[k]<’0’ || string[k]>'9') 
{ 
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Sprinca(cextl, “Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid_box(row,col,7); 
get_barge data(i, row, col, name, data); 
return ; 


) 
/ St input string containsionly valid numbèrs, convert string to float */ 
status = stofa(string,&data[i-2],&nbr,1); 

} 

else /* 1 == 9; edit response */ 

{ 


strcpy (response, string); 


f KC he de / 


/* check data for consistency E 
[CK Ck e e kk e e kk ek dee kk d e Ok eR Kok RR 0k OK KORG KORG KR OK ROER ROK RR N 


f Ke e e e e ee e e e e e e e e e e n € f 


if (192) /* hull name or number */ 
( f Kee / 
if (name[0]«'A' || 'Z'«name(0] && name[0O]«'a' || name(0]»'z') 


( 
sprintf(textl,"Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid box(row,col,14); 
get barge data(i,row,col,name,data); 


return ; 
) 
) /**kkkkkkkkkkkkkk/ 
if (i==2) /* hull length */ 
{ [ie] 


if (data[0]<=0.0) 

{ 
sprintf(textl, "Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid box(row,col,7); 
get barge data(i,row,col,name,data); 
return ; 

) 

else if ( data[0]>1000.0 ) 

( 
sprintf (textl, "Invalid entry; try again"); 
display error(ERROR,textl1," "); 
vid box(row,col,7); 
get barge data(i,row,col,name,data); 


return ; 
) 
) /[/*****x*x*x/ 
if (i==3) /* beam */ 
{ [RARAS 


if (data(1]<=0.0) 
{ 
sprintf (textl, "Invalid entry; try again"); 
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) 


display error (ERROR,textl," "); 

vid box(row,col,7); 

get barge data(i,row,col,name,data); 
netusn ; 


else if ( data[1]>500.0 ) 


{ 


) 


sprintf (textl, "Invalid entry; try again"); 
display error(ERROR,textl," "); 

vid box(row,col,7); 

get barge data(i,row,col,name,data); 
return ; 


f kk ke s RR RR OK 


if (i==4) /* hull depth */ 


( 


f kk e d e e x x / 


if (data[2]<=0.0) 


( 


) 


sprintf(textl,"Invalid entry; try again"); 
display error(ERROR,textl1," "); 

vid box(row,col,7); 

get barge data(i,row,col,name,data); 
return ; 


else if ( data[2]>100.0 ) 


{ 


) 


Spr1nt£ (textl, "Invalid entry; try gain"); 
display error(ERROR,textl," "); 

vid box(row,col,7); 

get_barge data(i, row, col, name, data) ; 
return ; 


/[****kkxkxx/ 


if (i==5) dt draft */ 


( 


/[*****xkkxx/ 


if (data[(3)<=0.0) 


{ 


) 


sprintf(textl,"Invalid entry; try again"); 
display error(ERROR,textl," yes 

vid box (row,col,7); 

get barge data(i,row,col,name,data); 
return ; 


else if ( data[3]>data[2) ) 


( 


) 


SPrine£ (Bext],"Draft is'deeper than hull"); 
sprintf (text2,"==> please try again <==" 
display error (ERROR,textl,text2); 

vid box(row,col,7); 

get barge data(i,row,col,name,data); 

return ; 


f Ko e ke e je dee de e d je dee x / 


if (i==6) /* deckhouse length */ 
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f RU 9 ke e x v KK RK IK / 


if (data[(4]<0) 


( 


) 


sprintf (textl, "Invalid entry; try again"); 
display error (ERROR,textl," "); 

vid box(row,col, 7); 

get barge data(i,row,col,name,data); 
return ; 


else if (data[4)]>data[0)) /* is greater than hull length */ 


{ 


) 


sprintf (textl,""Deckhouse is longer than hull"); 
sprintf (text2,"==> please try again <=="); 
display error (ERROR,textl,text2) ; 

vid box(row,col,7); 

get barge data(i,row,col,name,data); 

return ; 


f RO e e e e ek e e de e e d ex / 


if (i==7) /* deckhouse width */ 


( 


(AALE 


if (data[5]<0) 


{ 


) 


sprintf (textl, "Invalid entry; try again"); 
display error (ERROR,textl," "); 

vid box(row,col,7); 

get barge data(i,row,col,name,data); 
return ; 


else if (data[5]J>data[l]) /* is greater than beam */ 


{ 


} 


sprintf(textl, "Deckhouse is wider than beam"); 
sprintf (text2,"==> please try again <=="); 
display error (ERROR,textl, text2) ; 
vid_box(row,col,7); 

get barge data(i,row,col,name,data); 

returm : 


[RII e ee de ee e de e o e ek 


if (i==8) /* deckhouse height */ 


{ 


f[ E / 


if (data[6]«0) 


( 


) 


sprintf(textl,"Invalid entry; try again"); 
display error (ERROR, textl, " ys 

vid box(row,col,7); 

get barge data(i,row,col,name,data); 
return 7 


else if ( data[6]>100.0 ) 


( 


sprintf(textl,"Deckhouse is unusually high"); 
sprintf (text2,"==> please try again <=="); 
display error (ERROR, textl,text2) ; 
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vid box(row,col,7); 
get barge data(i,row,col,name,data); 
return ; 


cursor off(); 
goto xy(0,0); 


f NOR ode kk e ck ck eoe e ke ec ce eoe ee e e eoe ok ek e e NXN XX NXN XN XX XX XN XX XX X X XN XX XX XX XX X X GU 


This function displays a summary of input data and gives the user the 
opportunity to edit. 
Xo c e kc e e ce e c e e e e e e e e e e e NXN NXN XN XN NN e N e e e N NN NÑ NN XK XNXX XN e e ee e e e e e e e e de X XX XNXX / 
void barge summary(barge data,tow data,name) 
float *barge data; 
float *tow data; 
char *name; 
{ 
static char *label1() = 
( 
"Name or hull no:", 
"Hull condition:", 
"Tow speed:", 
"Max expected wind speed:", 
"Relative wind direction:" 


as 


int EE 1, “ket: 
int start; 
char string[81],string1([81]; 


/* clear portion of window */ 
clear (startrow+1, startcol+1,endrow-1,endcol-1,REV_VID); 


/* write header */ 
write header(startrow,startcol,endcol,header[1],REV VID); 


/* write labels */ 

write string(startrow*t5,startcol*3,labell[O],REV VID); 

write string(startrowt7,startcolt3,labell[1],REV VID); 

write string(startrowt9,startcol*3,labell(2],REV VID); 

write string(startrow*ll,startcol*3,labell[3],REV VID); 
write string(startrowt13,startcol*3,labell1([4)],REV VID); 


/* write data */ 

write string(startrowt5,startcolt3tstrlen(labell[0])-*2,name,REV VID); 
sprintf (string, "%7.1f",tow data[4]); 

write string(startrowt7,startcolt3tstrlen(labell(3]),string,REV VID); 
sprintf (string, "%7.1f",tow data(1]); 

write string(startrow*9,startcolt*3tstrlen(labell[3]),string,REV VID); 
sprintf(string,"$7.1f",tow data[2]); 

write string(startrow+tll, startcol+t3+strlen(labell[3)), string, REV_VID); 
sprintf (string, "%7.1£",tow_data[(3)); 
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write string(startrow+13, startcol+3+strlen(labell(3]),string, REV VID); 


/* write units */ 

write string (startrowt+9, endcol-4, "kts", REV VID); 

write string(startrowtll,endcol-4,"kts",REV VID); 
write string(startrowt13,endcol-4,"deg",REV VID); 


/* write footer; prompt for confirmation of data */ 
/* write footer */ 


write string(endrow-2,startcol*3,footer[1],REV VID); 


/* create normal video box for response */ 
vid box(endrow-2,startcol+3+strlen(footer[1]),4); 


/* get response */ 
get barge data(9,endrow-2,startcolt3tstrlen(footer[1]),name,tow data); 


/* test if data correct */ 
if ( response[0]!='y' 66 response[0]!='Y' 66 response[0]!=NULL ) 
{ 


f[ KC / 


X edit data d 
f KOC o e ec e e he he e e ec e e e e e ee e e e X NN NN NX NN NX NXN NNN e e e e ke NXN NN NX ke e ek ee ek / 
/* erase previous message */ 
start = startcol + 3; 
for (i=0; i<strlen(footer[1]))+5; i++) 

write char(endrow-2,start+i,' ' REV_VID); 


/* write quit message */ 
start=(endcol-startcol-strlen(footer[4]))/2 + startcol; 
write string(endrow,start,footer[4],REV VID); 


/* write edit "menu" */ 

start=(endcol-startcol-strlen (footer[2]))/2 + startcol; 
write _ string (startrow+t15, start, footer [2], REV_VID); 
startz(endcol-startcol-strlen(footer[3]))/2 + startcol; 
write string(startrowtl6,start,footer[3],REV VID); 


/* write function key indicators in NORM VID */ 

for(i=0; i<2; i++) 

{ 
start=(endcol-startcol-strlen(footer[2]))/2 + startcol; 
write _char (startrow+t15, start+i, footer[2] [i], NORM_VID); 
write char(startrowt15, start+8+i, footer (2) [i+8],NORM_VID); 
write char (startrow+15, start+16+i, footer[2] [i+16],NORM_VID); 
start=(endcol-startcol-strlen(footer[3]))/2 + startcol; 
write_char(startrow+16,start+i, footer[3][i],NORM_ VID); 
write_char(startrow+16,start+8+i, footer[3] [1+8],NORM_VID); 


/* move cursor to Fl highlight */ 

cursor on(); 

start=(endcol-startcol-strlen (footer[2]))/2 + startcol; 
goto xy(startrowtl5,start); 
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/* get user's choice */ 
while (1) 
( 
key=get_special(); 
[RKKKKKKKKKKK KK / 
if (key==F1) /* barge name */ 
{ /zkkkkkkkkkkkkk/j 
vid box(startrow+5,startcol+3+strlen(label1l[0])+2,14); 
get_barge _data(1l,startrow+5,startcol+3+strlen(label1[0])+2,name,barge data); 
for (i=0; i<=15; i++) 8 
write_char(startrow+5,startcol+3+strlen(label1l[0])+1+i,' TREV VID); 
write string(startrowt5,startcolt3tstrlen(label11[0])-*2,name,REV VID); 
cursor on(); 
start=(endcol-startcol-strlen(footer[2]))/2 + startcol; 
goto _xy(startrow+15,start); 


) f RC / 


else if (key--F2) null condition */ 

{ [RK RI KERR RR RR RR RR 
vid_box(startrow+7,startcol+3+strlen(labell[3])+2,6); 
get_dock_data(4,startrow+7,startcol+3+strlen(labell[3])+2,tow data); 
for (i=0; i<7; i++) 

writé. char(startrowt7,startcolt3tstrlen(label1[3])*1*i,' ',REV VID); 
sprintf (string, "%7.1£",tow_data[4]); 
write string (startrow+7,startcolt3+strlen (labell[3])), string, REV_VID); 
cursor on(); 
start=(endcol-startcol-strlen(footer[2)]))/2 + startcol; 
goto_xy(startrow+15,start+8); 


) /zkkkkkkkkkkk*k/ 
else if (key==F3) /* tow speed */ 
{ /ttkkkkkkkkkkkkj 


vid box(startrow+9,startcol+3+strlen(labell(3])+2,6); 

get_dock_data(1,startrow+9, startcol+3+strlen(labell(3])+2,tow_data); 

for (i=0; i<7; i++) 
write_char(startrow+9,startcol+3+strlen(labell[3))+1+i,' REV VID); 

sprintf (string, "%7.1£", tow_data[1]); 

write string(startrow+9,startcol+3+strlen(labell(3)]),string,REV_VID); 

cursor on(); 

start=(endcol-startcol-strlen (footer[2)))/2 + startcol; 

goto_xy(startrow+15,start+16); 


) /*kkkkkkkkkkkkk/ 


else if (key==F4) /* wind speed */ 

{ f Rh dede de e d e e x / 
vid box(startrow+11,startcol+3+strlen(label1l(3])+2,6); 
get_dock_data(2,startrow+11,startcol+3+strlen(labell[3])+2,tow_data); 
for (ie0; 1<7; i++) 

write char(startrowtll,startcolt3tstrlen(labell[3])-*1*i,' ',REV VID); 

sprintf (string, "%7.1f£",tow _data([2)); 
write string(startrowtll,startcolt3tstrien(labeli(3]), string, REV VID); 
cursor on(); 
startz(endcol-startcol-strlen(footer(3]))/2 + startcol; 
goto_xy(startrow+16,start); 


) /*tkkkkkkkkkkkkkkkkkkkkk/ 


else if (key==F5) /* rel wind direction */ 
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{ f Fh / 
vid_box (startrow+13, startcol+3+strlen(labell(3))+2, 6); 
get dock data (3, startrow+13, startcol+3+strlen(labell([(3))+2,tow data); 
for (i=0; 1<7; i++) 
write char(startrow+13, startcol+3+strlen(labell(3])+1+i,’ ',REV VID); 
sprintf(string,"$7.1f",tow data[3]); 
write string(startrow+13,startcol+3+strlen(labell(3]), string, REV_VID); 
cursor on(); 
start=(endcol-startcol-strlen (footer(3]))/2 + startcol; 
goto xy(startrow+16, start+8) ; 
) 
else if (key==INSERT) 
{ 
/* erase menu */ 
for (i=0; i<strlen(footer[2]); i++) 
( 
start=(endcol-startcol-strlen(footer[2]))/2 + startcol; 
write char(startrow+15,start+i,' ',REV VID); 
write char(startrow+16,start+i,' ',REV_VID); 
) 
/* erase message */ 
start = (endcol-startcol-strlen(footer[4)))/2 + startcol; 
for (i=0; i<strlen(footer([4]); i++) 
write char (endrow, start+i,205,REV_VID); 
cursor off(); 
goto xy(0,0); 
break; 


) 
/* prompt to save data to file */ 


/* -- erase message */ 
start - (endcol-startcol-strlen(footer[1]))/2 + startcol; 
for (i120; i<37; i++) 

write char(startrow4l5,startcolt3*i,' ',REV VID); 


start = startcol + 3; 

write string(endrow-2,start,footer[5],REV VID); 

vid box(endrow-2,starttstrlen(footer[5]),4); 

get barge data(9,endrow-2,start*strlen(footer[5]),name,tow data); 


if ( response(0]!z'n' && response[0]!z'N' ) /* save data */ 


( 
/* erase previous message */ 
start = startcol + 3; 
for (i=0; i<strlen(footer[5))+4; i++) 
write char(endrow-2,start+i,' REV av ID) 


save barge file(name,barge data,tow data); 


[AUREA ARTIE RAR RARA RRA AA EE AREA RAR ANNA RANIA 


This function computes the mean tension of a barge and its 


239 


towing hawser. 


It duplicates the computations in the function 


get barge resist(), but is intended as a stand alone function 


for use by other program modules. 
Y e o e kc oc e e kc e e e e e e e kc e e e e e e e e e ke e e e e e e e e ke e e e e e e e e e X XNXX X XN XX XX XX / 


void barge resist(tug data,barge data,tow data,tension) 


float 
float 
float 
float 


*tug data; 
*barge data; 
*tow data; 


*tension; 


( 


float 
float 
float 
float 
float 
float 
float 
float 
float 
float 
float 
float 
float 


vtow zs tow data[l]; 
tow data[2]; 
hlength - 


barge data[1]; 


vwind - 
barge data[0]; 
beam = 
depth = 
draft = barge data[3]; 
dlength = barge data[4]); 
width = 
height = 
end_shape = 
fl jee, £3; 
wet surf, friction,uw xsect, abv_ xsect; 


barge data[2]; 


barge data[5]; 
barge data([6]; 
barge data([7); 


wave resist, wind resist, resistance, haw res; 


/* determine fl, 
fl = 


£2, £3 */ 
(tow data[4]/10.0)*(0.8 - 0.45) * 0.45; /* hull condition */ 


if (end shape--zO || end shape--1) 


£2 = 0.2; /* rake or ship-ended */ 
else 
£2 + 0.5; /* square-ended */ 
f3 = 0.60; /* average barge value per Section G-3.2 */ 


/* compute frictional resistance */ 

(hlength*beam) + 2.0* (hlength+beam) *draft; 
square (vtow/6.0); 

fl * wet surf * vtow; 


wet surf = 
vtow = 
friction = 


/* compute wave resistance */ 

uw xsect - (beam*draft); 

wave resist = 2.85 * uw xsect * f2 * square(vtow) * 1.2; 
/* compute wind resistance */ 

abv xsect = (depth-draft) *beam + height*width; 

wind resist = abv xsect*0.004*square(vtowtvwind)*f3; 


/* compute total resistance */ 
resistance = friction + wave resist + wind resist; 


/* compute hawser resistance */ 
hawser resist (tug data,tow data[1], resistance, &haw res) ; 


/* compute total resistance */ 
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*tension - resistance + haw res; 


f[ FR ee e e e e ee e e NN XX NN N NXN X N NXN XN Ñ N NX 9 


This function retrieves tow data from a user specified file. 


Yo x e e e e eoe e e e e e e e Ye e e e N NNN KNX e / 


get barge file(hull no,barge data,tow data) 
char *hull no; 


float *barge data; 
float *tow data; 


d 


FILE *in; 

char fname[13]; 

char inline(81]; 

char text1[39],text2[39]; 
int 74) status, nbr; 

float ‘array [2]; 

int start; 


/* write header */ 
start = (endcol-startcol-strlen(label2[1)))/2 + startcol; 
write _string(startrow+8, start, label2(1],REV VID); 


/* write prompt */ 
for (i=0; i<2; i++) 
( 

start = startcol+3; 

write string(startrow+10+i,start,label2[i+2],REV_VID); 
) 
vid box(startrow+11,start+strlen(label2[3)]),9); 
serint£(textl, "Type 'Q' to quit"); 
start - (endcol-startcol-strlen(text1))/2 + startcol; 
write string(endrow-3,start,textl,REV VID); 
get_fname(6,1,startrow+11,startcol+3+strlen(label2[3]), fname); 


/* cheek for quit option */ 
if (fname[0]z-z'Q') 
( 
cursor off(); 
goto xy (0,0); 
return (-1); 


insfopen(fname,"r"); 
if (inzzNULL) 
( 
sprintf(textl,"Can't open file %s", fname) ; 
display error (ERROR,text1," "); 
clear (startrow+8, startcol+l,endrow-3, endcol-1,REV_ VID); 
statussget barge file(hull no,barge data,tow data); 
if (status<0) 
{ 
cursor off(); 
goto xy(0,0); 
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return (=l); 
) 
else 
return (0); 
) 
else 
{ 
/* read data from file */ 
fgets (inline, 81,in); 


strstrip(inline); 


/* test for valid tow file */ 
Tf (l(strnemp(inline; Tow datawfile",15))) 
{ 

fgets (inline, 81,in) ; 

fgets (inline, 81,in); 

strstrip(inline); 


/* test if barge file */ 

if (strnomp(inline, "BARGE",5)) 

{ 
sprintf (textl,"%s is not a", fname) ; 
sprintf (text2, "barge data file!"); 
display error (ERROR, textl, text2) ; 


clear (startrow+8, startcol+1,endrow-3,endcol-1,REV_VID); 


statussget barge file (hull no,barge data,tow data); 
if (status«O) 
{ 
cursor off(); 
goto xy(0,0); 
return (-1); 
) 
else 
return (0); 


/* get hull number */ 
fgets (inline, 81,in); 

fgets (inline, 81,in); 
strstrip(inline); 
strncpy(hull_no, inline, 24); 
strstrip(hull_no); 


/* read remaining tow data */ 

for (i=0; i<5; i++) 

{ 
fgets(inline,81,in); 
fgets(inline,81,in); 
status=stofa(inline,array, ¿nbr, 1); 
tow data[i]zarray[0); 


/* read barge data */ 
for (P80; i<8; i++) 
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fgets (inline, 81,in); 
fgets (inline, 81,in); 
status=stofa(inline,array, &nbr, 1); 
barge data([i])=array (0); 

) 

fclose(in); 


) 


else 

( 
sprintf(textl,"$s is not a tow data file!", fname) ; 
display error (ERROR,textl," "); 


clear (startrow+8, startcol+1,endrow-3,endcol-1,REV_VID); 
status=get barge file(hull no,barge data,tow data); 
if (status<0) 
{ 
cursor off(); 
goto xy (0,0): 
return (-1); 
) 
else 


return (0); 


/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


This function writes the tow data for barges to a user 
specified file. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void save barge file(hull no,barge data,tow data) 


char *hull no; 


float *barge data; 
float *tow data; 


( 


FILE *out; 

char fname[13]; 

char String(25); 

char text1[39],text2[39]; 
int start; 


/* prompt for file name */ 

start = startcol + 3; 

write string(endrow-2,start,footer[6],REV VID); 
vid box(endrow-2,start*strlen(footer[6])*4,9); 


get fname(6,1,endrow-2,start*strlen(footer[6])*4,fname); 
out=fopen (£fname, "w"); 


if (out==NULL) 

( 
sprintf (textl, "Can’t open file %s", fname) ; 
display error(ERROR,textl," "); 
save barge file(hull no,barge data,tow data); 
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return; 

} 

else 

{ 
/* write tow data to file */ 
fprintf(out,"! Tow data file\n"); 
fprintf (out, "! Tow type:ln"); 
fprintf (out, "BARGE\n"); 


fprintf (out,"! Hull number:\n"); 
Sprant£ (out, "%s\n",hull no); 


fprintf(out,"! Estimated displacement: Mn"); 
sprint£ (string, "*-.1fin",tow _data[0]); 
fprintf (out, "%s"; string); 


fprintf (out,"! Tow speed (kts):\n"); 
sprintf (string, "%-.1f\n",tow data([1])); 
EE IDEE (out, ts", string): 


fprintf (out,"! Wind speed (kts):\n"); 
sprintf (string, "%-.2f\n",tow_data[2]); 
forintf(out,"$s",string): 


fprintf (out,"! Relative wind dir:Nn"); 
sprintf (string, "t-.2f£\n",tow_data(3]); 
Bbrintf(ont," '$s".string); 


Berinceqout, ! Hull condition: \n”") ; 
sprintf (string, "%-.2£\n",tow_data([4]); 
bprantt(out, *s",string); 


/* write barge data to file */ 

fprintf (out,"! Hull length:\n"); 

sprintf (string, "%-.1f\n",barge data[0]); 
fprintf (out, "%3", string); 


£fprintf(out,"! Beam:\n"); 
sprintf (string, "%-.1£f\n",barge_data[l]); 
fprintf (out, "%s", string)? 


fprintf (cut, ”! Hull depth:\n") ; 
sprintf (string, "*-.1fin",barge_data[(2])); 
FPEINEBNCLUE, ts", string) ; 


PDEMMEf(OUE,"! Draft:\n"); 

sprintf (string, "%-.1f\n",barge data(3]); 
Eprice (out, "ts", string) ; 

fprintf (out,"! Deckhouse length:Nn"); 
sprintf (string, "*-.1fin",barge _data[4]); 


fprintf (out, "ts", string); 


fprintf (out,"! Deckhouse width:\n"); 
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sprintf (string, "%-.1fln",barge_data[5]); 
#printf (out, "ta", string); 


fprintf(out,"! Deckhouse height:\n"); 
sprintf (string, "t-.1f\n",barge data[6]); 
fprintf(out, "*s",string); 


fprintf(out,"! End shape:\n"); 
sprintf (string, "%-.O£f\n",barge_data[7]); 
Ep rinef (out, ta” string); 

) 


fclose (out); 
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/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk* 
File: drg.c 
Author: Todd J. Peltzer 
Last update: 30 April 1989 


This file contains the functions which compute the tow resistance 
of self-propelled ships, as well as the resistance of the tow 
hawser. 

Functions: 

mean tension() 

ship resist () 

added res () 

hull resist() 

wave height () 

hawser resist () 

KKK KK I IK IIR RII I RR FOR FOTO IORI  / 
#include "stdio.h" 

#include "math.h" 

#include "keydef.h" 

finclude "video.h" 


define PI 3.141592654 


static char *label[] = 

{ 
"Wind resistance:", 
"Wave height:", 
"Wave resistance:", 
"Hull resistance:", 
"Propeller resistance:", 
"Total tow resistance:", 
"Hawser resistance:", 


"Mean tension:" 


static char footer[]) = 


{ 


" Press INS to continue " 


static char *header[)] = 
{ 

"RESISTANCE", 

“DATA SUMMARY" 
be 


static char *labell(] = 
{ 

Hull mos", 

"Class:", 

"Dispe", 

"Tab disp”, 

"Front area:", 
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"Wind coef:", 

"Prop :areas", 

“Hull curve:", 
"Wave curve:", 
"Tug class:", 

"Hawser", 

"  diameter:", 


scope: 


static char *label2(] = 
( 
"Tow spd:", 
"Max wind:", 
“RSP wind dir:", 
"Wave height:", 
“Prop status:", 
"Chain pendant", 
" sizes", 


"  scope:" 


static char *label3[] - 
( 
"Resistance (lbs)", 
" Wind:", 
Wave:", 
Heads, 
Prop:", 
Tossi: ", 
"Hawser:", 


"Tension:" 


extern float resist dat[5]; 


void mean tension(),ship resist(),hawser resist(); 
float square(); 


f| fe ee ee ke ce e e e ce c e e ec oe e e e X XN NN XX XN kc e e ke N NX XX NN X X XX X X XX XX XN XX X X XX XX XX X X X 


This function computes the mean towing tension of a ship, displays 


the results, and then displays a summary. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void mean tension(tug data,tow data,ship data,hull no,class,tension) 


float *tug data; /* tug data */ 
float *tow data; /* tow data */ 
float *ship data; /* ship data * / 
char *hull no; /* hull number */ 
char *class; /* ship class */ 
float *tension; /* mean hawser tension */ 


( 
int row,col,i,start,key; 
int status; 
float tow res; /* total tow resistance * / 
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float haw res; /* hawser resistance * / 
float res dar (51: /* array of resistances */ 
int startrow=2; 

int startcol=20; 

int endrow=22; 

int endcol=60; 

int left, center, right; 

char string(15); 


/* start of computations */ 
ship_resist (tow data, ship_ data, res _dat,śtow res); 
for (i=0; i<5; i++) 
resist dat[i]zres dat[i]; /* save data for report */ 


f Fk e e e ke oe he e e e e e ke e e ok ok kk kk kk kk / 


/* compute total tow resistance */ 
f Roe e ke e e e hehe ee de ck e eoe ke ee ke ke e eek 2.20 


/* compute hawser resistance */ 
hawser resist(tug data,tow data[1],tow res,&haw res); 


/* compute mean tension */ 
*tension = tow_resthaw res; 


f FC ke he ke ke ee e he c / 

/* display results u^ 

f| RR ke ee che ehe NXN XNXX XN NX XX NX XX XX NX XX XX XX XX XX NX NX XXX / 

/* draw background and border */ 

draw window (startrow, startcol,endrow,endcol, DOUBLE, REV_ VID); 


/* write header */ 
write header(startrow,startcol,endcol,header[0],REV VID); 


/* write data labels */ 
for (row=startrow+5, i=0; i<8; i++, rowtt) 
write string(row,startcolt3, label (i], REV VID); 


/* write data */ 

/* write wind resistance */ 

sprintf (string, "%8.0f",res dat(0]); 

write string (startrow+5, startcolt2+strlen (label [4]) +2,string, REV_VID); 


/* write wave height */ 
sprintf (string, "%8.1f£",res dat({1]); 
write string(startrowt6,startcolt2tstrlen(1abel[4])42,string,REV VID); 


/* write added resistance */ 
sprintf (string, "%8.0£", res dat(2)); 
write string(startrowt7,startcolt2tstrlen(l1abel[4])*2,string,REV VID); 


/* write hull resistance */ 


sprintf (string, "%8.0f£",res dat{3]); 
write string(startrowt8, startcolt2tstrien(label[4]) 42, string, REV VID); 
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/* write prop resistance */ 
sprintf (string, "*8.0£",res dat (4]); 
write _string(startrow+9,startcol+2+strlen(label(4])+2,string,REV_VID); 


/* write total tow resistance */ 
sprintf (string, "%8.0£",tow_res); 
write string (startrowt10,startcolt2tstrien(label(4]) 12, string, REV VID); 


/* write hawser resistance */ 
sprintf (string, "%8.0f£",haw res) ; 
write _string(startrow+ll,startcol+2+strlen(label[4))+2, string, REV_VID); 


/* write mean tension */ 
sprintf (string, "%8.0£", *tension) 
write string(startrowtl2,startcolt2tstrien(labelf4)) 12, string, REV VID); 


/* write units */ 
for (row=startrow+5,i=0; i<8; i++, row++) 

write string(row, endcol-5,"lbs",REV VID); 
write string(startrowt6,endcol-5, "ft ",REV VID); 


/* write footer */ 
start = (endcol-startcol-strlen(footer))/2 + startcol; 
write string(endrow, start, footer, REV VID); 


pause (startrow, startcol, endrow, endcol, footer, REV_VID); 
return ; 


/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


This function computes the added resistance due to waves. Data from 
Figure G-2 of the USN Towing Manual are read in from the file "RS WVHT.DAT" 
and are linearly interpolated for the specified wave height. The first 
argument is the desired wave height, the second is the curve number as 
determined from Table G-2; the third argument is the result, the added 
resistance. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


added_res(wave_ht,curve,resistance) 


float wave_ht; /* Wave height, feet * / 
float *resistance; /* Added resistance, lbs * / 
int curve; /* Curve no. for added resistance */ 
( 

FILE *in; 


char string[81],dummy(81],text1[36],text2[36)]; 
char ch; 


int i; /* Dummy counter * / 
int status; /* Return value for "stofa" * 
int n; /* Required arg for "stofa" E 
int index; /* Index for table lookup */ 
float test; /* Test value for if statement * / 
float lower dat[4], upper dat(4]; /* Bracketing data points sy 
float curve dat(4]; /* Exact or interpolated data * / 
in = fopen("rs_wvht.dat","r"); /* Open file */ 
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index = wave ht/1; /* Compute test value for if statement */ 
test = wave ht - (float)index; /* " e 


/* Read and discard text lines of file */ 
fgets(dummy,81,in); 
fgets (dummy, 81, in) ; 
fgets (dummy, 81, in) ; 
fgets (dummy, 81, in) ; 


if (wave ht == 0.0) { 
fgets (string, 81, in); 
status = stofa(string, curve dat,é&n,4); 


else if (test > 0.0) { /* Need interpolation */ 
for (1=0; i<index; i++) 
fgets(dummy,81,in); /* Read & discard data up to the desired line */ 


fgets (string, 81,in); /* Read line of file */ 
status = stofa(string, lower dat, &n, 4); 
fgets (string, 81,in); /* Read next line of file */ 


status = stofa(string, upper dat, &n, 4); 
for(i=0; i<4; i++) ( 
curve dat[i] =lower dat[i] + (wave ht-index) * (upper dat[i] 
- lower dat[i]); 


} 
else if (test == 0.0) { /* No interpolation needed */ 
for (i=0; i<index; i++) 
fgets (dummy, 81,in); /* Read & discard data up to the desired line */ 
fgets (string, 81,in); /* Read line of file */ 
status = stofa(string,curve dat, é&n, 4); 


/* Check consistency of data: */ 
if ( curve dat(curve] > 1.0e30) 
( 
sprintf(textl,"Wave height outside data range"); 
sSprIntf(text2," for this"curve."); 
display error(ERROR,textl,text2); 
while( !(ch=getchar()) ) ; 
fclose (in): 


return -1; 


*resistance = curve dat(curve]; /* Passes the appropriate value  */ 
/* back to the calling function. */ 

fclose(in); 

return O; 


f NCC he de e e e ee X XNXX XX XX e e e e e e e e e e e e e e he je e e e e e e e e ce e je he e e e e e oe de he e eoe e e he e ee e e e ke ke e e 


This function finds the hull resistance of the ship (RH). Data 
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from Figure G-1 of the USN Towing Manual are read in from the file 

"RH DISP.DAT" and are linearly interpolated for the specified towing speed. 
The first argument is the desired towing speed, the second is the curve 
number as determined from Table G-2, the third argument is the displacement; 
the fourth argument is the result, the hull resistance. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


hull resist (speed, curve, disp, resistance) 


float speed; /* Towing speed, kts A 
int curve; /* Curve no. for added resistance  */ 
float disp; /* Displacement, tons SĄ 
float *resistance; /* Hull resistance, lbs x / 
( 

FILE *in; 


char string[81)],dummy([81],text1[36],text2[36]; 
char ch; 


int is /* Dummy counter * / 
int status; /* Return value for "stofa" #7 
ine n; /* Required arg for "stofa" * / 
int index; /* Index for table lookup rj 
float test; /* Test value for if statement */ 
float lower _dat[6], upper dat(6]; /* Bracketing data points */ 
float curve_dat[6]; /* Exact or interpolated data */ 
in - fopen("rh disp.dat","r"); /* Open file */ 

index = speed/1; /* Compute test value for if statement */ 
test = speed - (float) index; /* E A 


/* Read and discard text lines of file */ 
fgets(dummy,81,in); 
fgets(dummy,81,in); 
fgets(dummy,81,in); 


if (speed == 0.0) { 
fgets (string, 81,in); 
status = stofa(string, curve dat, &n, 6); 


else if (test > 0.0) ( /* Need interpolation */ 
for (iz0; i<index; i++) 
fgets (dummy, 81, in); /* Read & discard data up to the desired line */ 


fgets (string, 81,in); /* Read line of file */ 
status = stofa(string, lower dat, &n, 6); 
fgets (string, 81,in); /* Read next line of file */ 


status = stofa(string,upper dat, &n, 6); 
for(is0; i«6; it*) { 
curve dat[(i] slower dat[i] * (speed-index) * (upper _dat[i] 
- lower dat[(i]); 


) 
else if (test == 0.0) { /* No interpolation needed */ 
for (i0; i<index; i++) 
fgets(dummy,81,in); /* Read & discard data up to the desired line x 
fgets(string,81,in); /* Read line of file */ 
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status = stofa(string,curve dat, &n, 6); 


*resistance = 1.25*curve dat (curve) *disp; incl 25% for hull fouling */ 


fclose (in); 


return (0: 


DEKKER RR RR RR RR RR RR RR RR KERR RR RR RR RR ROKER OR ROKKE KERR RR RR RR RR RR ROER KOR TOTTI X X XX X + 


This function computes the significant wave height as a function of the 


maximum expected wind speed, using the Pierson-Moskowitz sea spectrum. 
xkkikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


wave height (wind spd, height) 


float wind spd; /* wind speed, kts */ 

float *height; /* wave height, ft */ 

{ 
float alpha=8.le-3; /* P-M nondimensional parameter */ 
float beta=0. 74; /* P-M nondimensional parameter */ 
float g=32.17; /* gravitational constant */ 


float coef; 
coef = 2.0/g*sqrt (alpha/beta) ; 
*height = coef* (wind spd*wind spd) * (1.689%*1.689) ; /* wave height in ft */ 


f KOC ke o de ke e e de ke heck ec ee eoe jede NXN NN NÑ NXN NN NXN NN XN e eode je NXN NX XNXX NXN XNXX N XXX XNXX X NX XNXX X XX NX Ñ 


This function finds the hawser resistance. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void hawser resist(tug data,speed,tow res,wire resist) 


float *tug data; /* tug data array x 

float speed; /* tow speed, kts m 

float tow res; /* tow resistance, lbs * / 

float *wire resist; /* hawser resistance, lbs */ 

( 
int i; /* dummy counter E 
static float rho=1.9905; /* density of sea water, slugs/ft^3 */ 
static float coef nz1.4; /* normal drag coefficient */ 
static float coef_t=0.015; /* tangential drag coefficient xU 
float T; /* static hawser tension */ 
float p: /* weight of hawser in water, lbs/ft */ 
float d; /* hawser diameter, ft */ 
float phi; /* cable inclination angle E 
float vtow; /* tow speed, ft/sec má 
float sinphi; /* sin(phi) E 
float cosphi; /* cos(phi) E 
float kl,drag,olddrag; /* intermediate results E 


if (tug_data(1)==2.0) 
p=6.4293; 

else if (tug_data[l]==2.25) 
p=8.1432; 

d=tug_data(1]/12.0; 
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vtow=speed*1.689; 


T=tow res; 


/* compute hawser resistance iteratively until 
equilibrium is reached  */ 

tor (2,40; 1<20; i++) 

( 
kl = rho*d*vtow*vtow*T/p; 
phi=atan(p*tug_data[2]/2.0/T); 
sinphi=sin(phi); 
cosphi=cos (phi); 


drag=k1*(coef n*(pow(sinphi,4)/cosphi+cosphi* (sinphi*sinphi+2.0) 


=2.0)+PI*coef£ t*sinphi); 

T = tow res + drag; 
if (i==0) 
( 

olddrag=drag; 

continue; 
) 
if ( fabs(drag-olddrag) < 0.1) break; 
else olddrag=drag; 

) 


*wire resist=drag; 


[RRR IR oe 0 e e e je eoe o 0 e e e e RO 0 RR 0 0 N NN XN NN NÑ NN NN NÑ NN N NNN NN NN Ñ Ñ N Ñ 


This function finds the ship resistance. 


C e e e e oU e o X XX NN NN ÑX X NNN XN N XX NNN NN NXN NX NN NN XN NN N N N N N N NN OK OK 


void ship resist(tow data,ship data,res dat,tow res) 
float *tow data; 

float *ship data; 

float *res dat; 


float *tow res; 


( 


float k; /* heading coefficient */ 
float rel wind spd2; /* relative wind speed squared */ 
float wind res; /* wind resistance, lbs */ 
float vtow2; /* tow speed squared */ 
float vwind2; /* wind speed squared * / 
float alpha; /* supp. angle of rel wind direction */ 
float wave ht; /* wave height, ft x 
float add res; /* added resistance due to waves */ 
float hull res; /* calm water hull resistance */ 
float prop_res; /* propeller resistance * / 
float prop area; /* propeller area m. 


int curve,status; 


/* determine heading coefficient */ 

if (tow data[3]«20.0) 
R= 19; 

else if (tow data(3)]>=20.0 66 tow data[3]<40.0) 
ke= 12; 

else if (tow _data[3]>=40.0 64 tow_data[3}<=90.0) 
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k = 0.4; 
else 
k = 0.0; 


vtow2 = square(tow data[1]); 


/xkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


/* compute wind resistance */ 
/**kkkkkkkkkkkkkkkkkkkkkkkkkk/ 


if (tow data[3]220.0) 
rel wind spd2 - square(tow data[1]+tow data[2]); 
else 
( 
vwind2 = square(tow data[2]); 
alpha = (180.0 - tow data[3]) *PI/180.0; 
rel wind spd2 = vwind2+vtow2-2.0*tow data[1]*tow_data[2]*cos(alpha) ; 


wind resz0.00506*ship data[2]*ship data[1]*k*rel wind spd2; 
res dat[0]-2wind res; 


[RR II IK dece ce e ee de ec e e c ke e e eee de e deck e e deje e ee e NXN vx / 


/* compute added resistance due to waves */ 
/*kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


wave height (tow data[2],&wave_ ht); 
res dat (1]=wave ht; 


curve - (int) ship data[5]; 
status = added res(wave ht,curve,&add res); 
if (status<0) 
add_res=0.0; 
res dat(2)=add_res; 


f NOR d e ce de dee NXN NN NN NXN NX NN NN XN N X XNXX XX NX / 


/* compute calm water hull resistance */ 
[RII / 


curve - (int) ship data[4]; 
status z hull resist(tow data[1],curve,tow data[0],&hull res); 
res dat[3]zhull res; 


f[ KORR e ee ce eoe ec e e ek oe oe e N NN NX XNXX N NX / 


/* compute propeller resistance */ 
[RIKKI IKK eoe de de de e eje e de dee eoe de e / 


prop area=ship data([3]; 

if (tow data[4]==LOCKED) ; 

else if (tow data[4]==TRAILING) 
prop area *= 0.5; 

else if (tow data [4]==REMOVED ) 
prop area = 0.0; 
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prop res = 3.737*prop area*vtow2; 
res dat[4]-prop res; 


f| ROCK koe koe eoe ec ek ke e ke ER RR ENE ER RR 


/* compute total tow resistance */ 
/zzkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


*tow_res = wind_res + add_res + hull_res + prop_res; 
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f. fe e eoe e e e e e e ee coe e e c e N X XN NX NX XX NX XX XN XN NX NX NX NX XN XN XN XX NX XX N N NX X N XN N X X N XX OX 
Pale: ext.c 
Author: Todd J. Peltzer 
Last update: 3 May 1989 


This file contains the functions which compute the extreme tension 
for a given combination of tug, tow, wind, tow speed, hawser scope, 
and heading angle. 

Functions: 

extreme () 

set towspd() 

set wind() 

set hdg() 

set scope() 

set coef() 

curvindex() 

stoia() 

get tension() 

get” ext opt () 

comp ten curv() 

show std curve() 

show speed() 

show length () 

elip() 

wait plt() 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkKkKkKkkkKkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkJ 
#include "stdio.h" 

#include "dos.h" 

finclude "stdlib.h" 

#include "keydef.h" /* Define aux byte values for IBM keyboard */ 

finclude "video.h" 

#include "math.h" 


typedef struct Subarray 
( 

short c[4)(6)*; 
) SUBARRAY; 


typedef struct Table 
{ 

SUBARRAY s[4] [3]; 
} TABLE; 


typedef struct 
{ 
int startcol; 
int endcol; 
} data_box; 


static data_box input() = 


{ 
(50,57) /* tension */ 
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static char *label2[) = 

( 
"Select basis for computing", 
"extreme tension:", 
"Actual mean tension (lbs): " 


n 


static char *labell[] = 
{ 
"DYNAMIC TENSION", 
urug:", 
Bow: 
"Tabulated tow:", 
" Actual  Tabulated", 
"Displacement:", 
"Tow speed:", 
"Wind speed:", 
"Wind direction:", 
"Hawser scope:", 
"Curve number:", 
"Mean tension:", 
"Dynamic tension:", 
"Extreme tension:" 


static char *menu[) = 

{ 
"1) Estimated mean tension", 
"2) Actual mean tension n 


pz 


static char *menul[) = 

{ 
"1) Show standard tension curve  ", 
"2) Show effects of tow speed Aë 
"3) Show effects of hawser length", 
"4) Return to PROGRAM OPTIONS B 


static char *menu2[) = 


{ 
"1) Show graph d 
"2) Return to OPTIONS" 
DZ 


static char *footer[) = 


{ 
" Please wait ", 


" Press INS to continue " 


); 


static char *tabtow[) = 


{ 
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"YRBM" R 

"EEG 1" ; 

"DD>963", 

"AE 26", 

"LHA 1", 

"CVN 65" 
js 
static char ext hdr[] >+ ( "OPTIONS" ); 
startrow=2; 


startcol=20; 
endrow=22; 


static int 


static int 
static int 
static int endcol=60; 


float fa[4) (25), £b(4] [25], £c(4] (25), fda[4] (25); 


static float towdisp() = { 650.0, 3200.0, 6700.0, 
20000.0, 40000.0, 85000.0 ); 

static float towspd[] = ( 3.0, 6.0, 9.0 ); 

static float windspd(] = { 15.0, 20.0, 25.0, 30.0, ); 

static float winddir[] = { 0, 60, 120, 180 ); 

static float scope[] = { 1000, 1200, 1500, 1800, 2100 }; 

void extreme(),curvindex(),set towspd(),set wind(); 


void set hdg(),set scope(),get tension(]),get ext opt(); 


void show std curve(),show _speed(), show _length(); 
void comp ten curv(),set coef(),clip(),set tugtype(); 
void set towtype(),wait plt(); 


extern char tug[15]; /* tug class <7 
extern char hull no[24]; /* hull number entered by user x / 
extern float tug data[5]; /* array to store tug data * / 
extern float tow data[5]; /* array to store tow data 27 
extern float ship data[6]; /* array to store Table G-2 data */ 
extern float dock data[7); /* array to store drydock data * / 
extern float barge data[8]; /* array to store barge data x / 
extern float ext data[10]; /* extreme tension results * / 
extern float spd_data[3] [4]; /* tow speed effects results x / 
extern float lgth_data[3] [4]; /* hawser length effects results */ 


TABLE t[18); 


/tkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkktk 


This function computes the extreme tension based on the given 
parameters. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
void extreme (type,tension,extr ten,curve, flag) 
int type; 
float *tension; 
float *extr ten; 
int *curve; 
int *flag; 
{ 


char inline[81]; 
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char text1[39],text2[39]; 

char string[26]; 

float" n, x; 

float tow_res,haw_res,res_dat[5]; 
int i,j; 

int k=0; 

int m=0; 

int nn=0; 

int ml; 

int nbr, status, choice; 

short array[15]; 

FILE *in; 

int tugtype, towtype, windspeed, towspeed, head, length, tugtow; 
int row, col, start, startl, key; 


in=fopen("curve.tab","r"); 


/* draw background and border */ 
draw_window (startrow, startcol, endrow, endcol, DOUBLE, REV_VID); 


/* write header */ 
write header(startrow,startcol,endcol,labell[0],REV VID); 


/* get choice for basis */ 

tor io: is. it) 

( 
start - (endcol-startcol-strlen(label2[i]))/2 + startcol; 
write string(startrow+8+i,start,label2(i],REV_VID); 

) 

start = (endcol-startcol-strlen(menu[0]))/2 + startcol; 

choice = popup (menu, "12",2, startrow+10,start-2,NONE, REV_VID, 0); 

ext data(9) = (float) choice; 


clear(startrowt8,startcoltl,endrow-3,endcol-1,REV VID); 
if (choice==0) /* use estimated tension from App. G method */ 
( 
if (*flag==1) 
( 
if (type==SHIP) 
{ 
ship resist (tow data,ship data,res dat,&tow res); 
hawser resist(tug data,tow data[1],tow res,&haw res); 
*tension - tow res + haw_res; 
) 
else if (type==DOCK) 
dock resist (tug data,dock_ data,tow_data, tension) ; 


else /* type==BARGE */ 
barge resist(tug data,barge data,tow data,tension); 
) 
*flag=0; 
} 


else 


( 
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*flagzl; 

/* prompt for actual mean tension */ 

write string (startrowtB, startcolt3, label2(2], REV VID); 
vid_box(startrow+8,startcol+3+strlen(label2(2]),7); 
get_tension(startrow+8, startcol+3+strlen(label2(2]),tension); 
clear(startrowtB8,startcoltl,endrow-3,endcol-1,REV VID); 


/* write labels */ 
for (i=0; i<13; i++) 
write string(startrowt5ti,startcol*3,labell[i*1],REV VID); 


/* write footer */ 
start - (endcol-startcol-strlen(footer[0]))/2 + startcol; 
write string(endrow,start,footer[0],BLINK REV VID); 


/* set tugtype */ 
set tugtype(&tugtype); 


/* determine towtype */ 

set towtype(&towtype); 
ext_data[0]=(float) towtype; 
ext data[1]stowdisp[towtype]; 


/* set tow speed */ 
set towspd(tow data[1],&towspeed); 
ext data(2]-towspd(towspeed]; 


/* set wind speed */ 
set wind(tow data[2],&windspeed); 
ext data[3)-2windspd[windspeed]; 


/* set heading angle */ 
set hdg(tow data[3], &head); 
ext data(4)=winddir (head); 


/* set hawser scope */ 
set scope(tug data[2], &length); 
ext _data[5)]=scope [length]; 


/* compute tug-tow combination index */ 
tugtow = towtype + 6*tugtype; 


/* set up coefficient array */ 
set coef(); 


/* read in data table for curve numbers from curve.tab */ 
for (nn=0; nn<l8; nn++) 
( 
for (m=0; m<4; m++) 
( 
for (k=0; k<4; k++) 
( 
fgets (inline, 81, in); 
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while(inline(0]zz '!') 


fgets (inline, 81,in); /* skip comments, headers, etc. */ 


/* convert string to array of short integers */ 
status=stoia(inline, array, &nbr, 15); 


/* assign curve numbers to data structure */ 
for(j=0; j<3; j++) 
{ 
for (i=0; 1<5; i++) 
t([nn).s(m)] ([J] .-c[k](i] =.array(i + j*5]; 


} 

/* compute i,j corresponding to curve number */ 

*curve = t[tugtow].s(windspeed) (towspeed] .c(head] [length]; 
ext data(6) = *curve; 

ext data[7] = *tension/1000.0; 


curvindex(*curve,&i,&j); 


x=(*tension) /100000.0; 


/z*kkkkkkkkkkkkkkkkkkkkkkkkkk/ 


/* compute extreme tension */ 

f*xxkkkkkkkkkkkkkkkkkkkkkkkkkJ 

fextr ten = 100.0*(x+fa[i] (j]*x/(1.0+£b[i] [j] *x) 
"Toftem)jr3]*x*x*x*x/(1-O*fd[3][5)*sx*x*x*35) ) ; 


ext data(8) = *extr ten; 


/* check magnitude of extreme tension */ 
if (*extr_ten>400.0) 
{ 
/* erase blinking footer */ 
start = (endcol-startcol-strlen (footer(0)))/2 + startcol; 
for (k=0; k« strlen(footer(0]); kt*) 
write char(endrow,start,205,REV VID); 


/* display error message; return to previous menu */ 
sprintf(textl,"Predicted extreme tension » 400 kips"); 
sprintf (text2,"==> SLOW DOWN, PAYOUT, OR BOTH <=="); 
display error (ERROR, textl,text2); 

cursor off(); 


return ; 


/* print result */ 

write string(startrowt5, startcol+4+strlen(labell(1)),tug, REV_VID); 

write string(startrowt6, startcol+4+strlen(labell[2]),hull_no, REV VID); 

write string(startrowt7,startcolt4tstrlen(1abell[3]),tabtow[towtype], REV VID) ; 


sprintf(string, $8.0f  $8.0f",tow data[0],towdisp[towtype]); 
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write _string(startrow+t9, startcol+3+15, string, REV_VID); 


sprintf (string, "%8.1f %8.1f",tow_data[l],towspd[towspeed]); 
write string(startrowtl0, startcol+3+15, string, REV VID); 


Sprintf (string, "*8.0£ $8.0f",tow data[2],windspd[windspeed]); 
write string(startrowtll,startcolt3*15,string,REV VID); 


sprintf (string, "%8.0f %8.0f",tow data[3) ,winddir[head]); 
write string(startrow+12, startcol+3+15, string, REV_VID); 


sprintf (string, "%8.0f %8.0f",tug data[2],scope[length]); 
write_string(startrow+13,startcol+3+15,string,REV_VID); 


SOBANCE (string, "td", *curv8); 
write string(startrowtl4,startcoltl5tstrlen(label1[10]),string,REV VID); 


sprintf(string,"$10.2f",*t&nsion/1000.0); 
write string(startrowtl5,startcolt4t3tstrlen(labell[11]),string,REV VID); 


x = *extr ten - *tension/1000.0; 
BEESUF € 0.0 ) 
cee 0.0; 
Sprancr (string, "t10.2f", x) ; 
write string(startrowtl16,startcolt4tstrlen(labell[12]),string,REV VID); 


sprintf(string," $10.2f",*extr ten); 
write string(startrowt17,startcolt4tstrlen(labell[13]),string,REV VID); 


for (i407 1<3; 1++) 
write string(startrowtl5ti,startcoltl5*strlen(labell[13]),"kips",REV VID); 


pause(startrow,startcol,endrow,endcol,footer[1],REV VID); 


return; 


f fO deo e e e c e je ec c e e e ee eje c e e e ce e e ee de e e e e e e e e e Ñ 


This function sets the tug type index. 
c Xe / 


void set tugtype(tugtype) 
int *tugtype; 
{ 
if (tug_data[0]==0) 
*tugtype=0; 
else if (tug data[0]==1 || tug_data[0]==2) 
*tugtype=1; 
else 


*tugtype=2; 


[RII III IK IK II III IK IK RII IK RE KI IK IK KK IKK KK 


This function sets the tow type index. 
X Ye e ce oe e je oe oe oe o oe e ee eoe e ode e oe eoe de e oe oe de ode e e decode e oe e x X X N *kk*/ 


void set_towtype (towtype) 
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int *towtype; 
{ 
int j=0; 


while (1) 
( 
if (tow data[0] < towdisp[0]) { 
*towtype=0; 
break; 
) 
else if (tow data(0]z-towdisp[j]) ( 
*towtypezj; 
break; 
} 
else if (tow data[0] » towdisp[j]) { 
if (j<5) { 
if (tow data(0] > towdisp(j] && tow data(0] 
if (tow data(0] » 0.75*towdisp[j+1l] ) { 
*towtype=3+1; 
break; 
) 
else ( 
*towtype=j; 
break; 


} 

else { 
j++; 
continue; 


} 

else { 
*towtypesj; 
break; 


) 

else { 
j++; 
continue; 


f ROO e e e e ee ee de he e ie e e e e e e ee ec ec e e e ec e ke ee ee ee e. 


This function sets the tow speed index. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
void set towspd(speed,towspeed) 

/* tow speed */ 
/* tow speed index */ 


float speed; 
int *towspeed; 
( 
if (speed<4.5) 
*towspeed=0; 
else if (speed>=4.5 && speed<7.5) 
*towspeed=]; 
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< towdisp(3+1]) 


( 


else 
*towspeed=2; 


f OR e e ce e e e e e e e e he e ke e N X e e e e e e NX NX XX NN e e e e e N Ñ 


This function sets the wind speed index. 
E ES ed ee oe Kok ee ee eee dee je N KNN NN KNN N KK I 
void set wind (wind, windspeed) 
float wind; /* wind speed */ 
int *windspeed; /* wind speed index */ 
( 
if (tow data(2)<17.5) 
*windspeed=0; 

else if (wind>=17.5 && wind<22.5) 
*windspeed=1; 

else if (wind>=22.5 && wind<27.5) 
*windspeed=2; 

else 
*windspeed=3; 


f| ROCCO oe e e e e ec e e e e e e e e e e e e e e ee e ee e e e ee e e e e N N X ke 


This function sets the heading index. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
void set _hdg(hdg, head) 
float hdg; /* heading angle */ 
int *head; /* heading angle index */ 
( 
if (tow data(3]<40.0) 
*head=0; 

else if (hdg>=40.0 && hdg<70.0) 
*head=1; 

else if (hdg>=110.0 && hdg<140.0) 
*head=2; 

else 
*head=3; 


f KC e e de e e ee e ee e e e he e je e oe e e e e e e eoe e oe NXN ÑN N N XX N Ñ 


This function sets the length index. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
void set_scope(scope, length) 
float scope; /* hawser length */ 
int *length; /* ha ser length index */ 


{ 
char text1(39],text2(39]; 


if (scope<1000.0) 

{ 
/* no data for shorter scope */ 
sprintf (textl,"No data for scopes less than 1000 ft"); 
display error (WARN,textl," "); 


} 
else if (scope>=1000.0 && scope<1200.0) 
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*length=0; 

else if (scope>=1200.0 && scope<1500.0) 
*length=1; 

else if (scope>=1500.0 && scope<1800.0) 
*length=2; 

else if (scope>=1800.0 && scope<2100.0) 
*length=3; 

else 
*length=4; 


f NR e e ene ecc c e NXN NNN NX NNN NXN NNN N XN XNXX e e e e C e CO OCC Ñ NN NN NN NN NX Ñ NN NN NN N N NN N 


This function sets up the coefficient arrays for computing the 

standard curves for extreme tension. 
Y e e C e C c e e e NX XN NN NX NX X NNN NX KX X NN NN X NN N NN NNN NN NN NN XX XN NNN AS 
void set coef() 
( 

EDEN: 

float n,nl; 


for (i=0; 1<25; i++) 
{ 
n= (float)ı; 
fa(O) (i) = 0.3*n; 
if (i>7) 


{ 


nl = n-7. 


0; 


fa[0](1] += 0.00013*n1*n1*n1*n1; 
) 
£b(0] [1] 0.0; 
£fc[0][i] = 0.0; 
£d[0] (i) 0-0; 
fa(1](i] = 0.6*n+0.0003*n*n*n; 
EI] (i] = 3.0; 
£c(1] (i) 0.0; 
£a(1]11)] 970; 
fa[2](1]) = 0.11*n; 
ST) 
( 
nl = n-7.0; 
fa[2](i] += 0.0002*n1*n1*n1*n1; 
) 
FEE) ii] = 3.0*0.11*n; 
fe(2) (i) = 20.0*fa[2) [i]; 
£d[2] [1]. $5.0; 
fa[(3) (1) = 0.03*n; 
if (1271) 
( 
nl = n-7.0; 
fa(3) (i) += 0.00014*nl*nl*nl*nl; 
) 
fb(3](i) 9» 5.0+0.04*n; 
fc[3]([i] = 80.0*f£a[(3)] [1]; 
CHA Er, D 
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This function takes a "standard curve" number and converts it to 
its component indices. 
ar EE MEE AA AA KAR RARR KARRE KERE KERR ERROR RR RE REKE KERK RR KERR RR RR RR RR RR RR df 
void curvindex(curve, i, )) 
int curve; 
Int "iy 
Int "^59 
( 
if (curve<25) *i=0; 
else if (curve>24 && curve<50) *i=1; 
else if (curve>49 && curve<75) *i=2; 
else if (curve>74 && curve<100) *i=3; 
6 curve - 25*(*i); 


/ekkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


This function gets the user's input for the data requested in the 
function extreme (). Uses screen getstring() for screen I/O. Some data 
checking is performed for each data type. 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
void get tension(row,col,data) 

int row; 

1n5Neol; 

float *data; 

( 


Mnt ABE; /* required arg for stofa() */ 
int status; /* takes return value for stofa() */ 
char string[24]; /* input string 7 
char text1[39], text2[39]; /* error message text */ 
wnt a, kę /* counters SE 
cursor on(); /* turn on cursor * / 
goto_xy(row,col); /* move cursor to start of box Wi 


/* get user input */ 
screen_getstrg(0, row, col, string,NORM VID, input) ; 


/* check for valid numeric input */ 
for (k=0; k<strlen(string); k++) 
{ 
1£.( Sbring(k]==*.* ) ; 
else if (string[k)<'0' || string[k]>’ 9’) 
{ 
sprintf (textl1, "Invalid entry; try again"); 
display error (ERROR,text1," "); 
vid box(row,col,7); 
get tension(row,col,data); 
return ; 
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/* if input string contains valid numbers only, */ 
/ * convert string to float */ 
status - stofa(string,data,&nbr,1); 


f| RO / 


/* check data for consistency Er 
N RC / 
if (*detecO.0) 
{ 
sprintf (textl,"Invalid entry; try again"); 
display error (ERROR,textl," "); 
vid box(row,col,7); 
get tension(row,col,data); 
return ; 
) 
if (*data>100000) 
{ 
sprintf (textl1, "Mean tension is beyond the valid"); 
sprintf (text2,"range of input--please try again"); 
display error (ERROR, text1,text2); 
vid _box(row, col, 7); 
get tension(row,col,data); 
return; 


cumsewwott(); 
goto xy(0,0); 


[8H IK IK IK IK IK IK IK IK IK KK IK I KI KKK IK IO NXN XN XX XN XX NX X NN X XX XX NX XX XX XX XX X X XX X X X X X 


This function displays a popup menu which lists the graphics options 
available in this module. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void get_ext_opt(flag,type,curve,mean,ext,hilite) 


TH" flag? /* indicates estimated or actual mean selected */ 
int type,curve; /* tow type, std curve number */ 

float mean, ext; /* mean, extreme tensions */ 

int hilite; /* popup menu choice to highlight */ 


{ 


int choice, start; 
MEE 1,35 
char text1(39),text2[39); 


cursor_off(); 


/* draw background and border */ 
draw window (startrow, startcol,endrow,endcol, DOUBLE, REV_VID); 


/* display popup menu */ 

start = (endcol-startcol-strlen(menul(0]))/2 + startcol; 

write header(startrow,startcol,endcol,ext hdr,REV VID); 

choicespopup (menul,"1234",4,startrowt5,start-2,NONE,REV VID,hilite); 


if (choice==0) 
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) 


curvindex (curve, &i,&}j); 
show _std_curve(i, Jj, curve, mean, ext) ; 
get _ ext opt (flag, type, curve,mean, ext, 1); 


else if (choice==]) 


{ 


} 


curvindex(curve,£i,£j); 
if (flag) 
( 
sprintf(textl,"This option uses only predicted"); 
sprintf(text2,"mean tensions"); 
display error(WARN,textl,text2); 
cursor off(); 
} 
show speed(type,i,j,curve):; 
get ext opt(flag,type,curve,mean,ext,2); 


else if (choice==2) 


( 


) 


curvindex (curve,£i,£j); 
if (flag) 
{ 
sprintf (textl, "This option uses only predicted") ; 
sprintf (text2, "mean tensions"); 
display error (WARN, textl,text2) ; 
cursor off(); 
} 
show_length (type, i, Jj, curve); 
get ext opt (flag, type, curve, mean, ext, 3) ; 


else return; 


[RRR oe eode ec e hec je je e e e e e e e e e ke kc e c e e e e he e c e NXN N NX N NNN N je e e e ce e ke e e ke e NNN NX N X NN N NN NN NX N X 


This function displays the extreme tension curve corresponding to 


the conditions specified for the given tug and tow. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void show std curve(i,j,curve,mean, ext) 


int 


Tg curve; 


float mean, ext; 


{ 


ime; /* dummy counter */ 

fISXECSDT2T],vt121]; /* arrays to hold x, y coordinates */ 

BUONO vl.x2,y2: /* coordinates for drawing lines */ 

char labx[25],1laby[25)]: /* strings for x, y axis labels */ 

short kdz2; /* graph "kode" */ 

short npts; /* number of points to plot */ 

short ntx=2,nty=1; /* skip factor for axis numbers */ 

short itype; /* designates x or y axis label in label() */ 
short nsym; /* symbol code */ 


float x0i=1.0764; 
float y0i=1.0; 
float xliz6.624; 
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x corresponding to y=400.0 kips */ 


x,y in world coordinates */ 


fl5atuelim4.35; 

float xmnz0.0; /% min x value */ 
float xmx=120.0; /* maw x value */ 
flost xtow10.0; /* x axis tic value */ 
float ymn=0.0; /* min y value */ 
float ymx=400.0; /* max y value */ 
float ytc=50.0; /* y axis tic value */ 
float xxmax; EK 

float xsm,ysm; /* smallest 

xsm = xmn - (x0i/xli)* (xmx-xmn); 

ysm = ymn - (yOi/yli)* (ymx-ymn); 


mean /= 1000.0; 
setplt (); 
locate (&x0i, &yOi, &xli, &yli); 


/* 
yox 
/* 
xyaxis (&xmn, &xmx, &xtc, &ymn, &ymx, 

&ytc, &xmn, &ymn, &kd) ; 
axnum(&ntx, &nty); 


/* 
/* 
itype=1; 

sprintf (labx, "Mean Tension (kips)_"); 
label (&itype, labx) ; 8 
itype=2; 


convert to kips */ 
initialize graphics */ 


set position on screen */ 


draw axes */ 
write axis numbers 


S 


write x-axis label 


SCH 


sprintf(laby, "Extreme Tension (kips)_"); 


label (&itype, laby) ; 
comp _ten_curv(i,j,x,y); 
clip (x,y); 


/* 
/* 
/* 


npts=122; 

line3 (&npts,x,y); a> 
/* don't plot points if mean tension > 
if (mean<=120.0) 

{ 


npts=1; 5 


x(0]= mean; es 
y(0]= ext; 
nsym=3; CN 


symplt (&npts,x, y, &nsym) ; 
xl= mean; 72x 
y1=0.0; 

x2= mean; 

y2- ext; 

drawu(&xl,&yl,&x2,&y2); 


x1=0.0; 
yl- 


/* 
ext; 

x2= 
y2= ext; 
drawu(&xl,&yl,&x2,&y2); 


mean; 


x1l=5.0; 
yl= 380.0; 


Z* 


Ty 
„A 


clip curve above 400kips */ 


write y-axis label 
compute curve pts 


draw line thru pts */ 

120 kips */ 

plot symbol at computed  */ 
value of extreme tension */ 


use diamond as data symbol */ 


draw line */ 


draw line */ 


write label */ 
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sprintf (labx, "Curve No. *d ",curve); 
labely (&x1l, &yl, labx) ; 


/* wait for keystroke, then exit */ 
wait plt(); 


f| fU ok e e e e e e eoe e e XXX e e e e e e e e e e e e oe e e e e e e e e e e e e e N NN N N NX Ñ NX NX X N NXN XN X NX XX X N NX X X X 


This function shows the effects of speed on extreme tension by 
computing the mean tension for Vtow +/- 1.0 kts, finding the appropriate 
extreme tension curves, and displaying a graph of all three curves. 


A summary of results is displayed prior to displaying the graphs. 
Je e ce e e e e e e e e e e e o e e e e e e e e e e e / 


void show speed(type,i,j,curve) 
int type; 


Ent oi, j,curve; 


{ 


float 
float 
float 
float 
float 


weel], 1o6[121],y hill2l],y le(121): 
AAA e 

tension hi,tension lo,extr hi,extr lo; 
mean, ext; 

spdhi, spdlo, oldspd; 


int tugtype, towtype,tugtow, windspeed, head, length; 
int towspdhi, towspdlo; 


nntEcuryéghi,i hi,j hi; 


mnt curve 16,1 lo,3] lo; 


STENT; /* dummy counter */ 

s BOJOWx|,yl,x2,y2; /* coordinates for drawing */ 

char Habx(25], baby (251: /* strings for x, y axis labels */ 
short kd=2; /* graph "kode" */ 

short npts; /* number of points to plot */ 

short ntx=2,nty=1; /* skip factor for axis numbers */ 
short itype; /* designates x or y axis label in label() */ 
short nsym; /* symbol code */ 

float x0i=1.0764; 

float yOi=1.0; 

float xli=6.624; 

float yli=4.35; 

float xmn=0.0; /* min x value */ 

float xmx=120.0; /* max x value */ 

float xtc=10.0; /* x axis tic value */ 

float ymn=0.0; /* min y value */ 

float ymx=400.0; /* max y value */ 

float ytc=50.0; /* y axis tic value */ 

float xxmax; /* x corresponding to y=400.0 kips */ 
float res_dat [5]; 

float tow res,haw res; 

float xx; 

float xsm,ysm; /* smallest x,y in world coordinates */ 


int Start, choice; 


xsm = 


xmn - (xOi/xli)*(xmx-xmn); 


ysm - ymn - (yOi/yli)*(ymx-ymn); 
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/* write message */ 

draw _ window (startrow+t1l,startcol+12,startrow+13,startcol+27, 
SINGLE, REV_VID); 

sprintf (labx, "Please wait"); 

start = (endcol-startcol-strlen (labx))/2 + startcol; 

write string(startrow+12, start, labx, BLINK REV VID); 


/* set speeds */ 
oldspd=tow_data[l]; 
spdlo = tow data[1]-1.0; 
if (spdlo <= 0.0) 

spdlo = 1.0; 
spdhi = tow data[1)+1.0; 
if (spdhi > 12.0) 

spdhi = 12.0; 


/* compute mean tension */ 

if (type==SHIP) 

{ 
/* -- for higer speed */ 
tow data[1]-2spdhi; 
ship resist(tow data,ship data,res dat,&tow res); 
hawser resist(tug data,spdhi,tow res,&haw res); 
tension hi - tow res + haw res; 


/* -- for lower speed */ 

tow data[(1)=spdlo; 

ship resist (tow data,ship data,res dat, &tow res); 
hawser resist (tug data, spdlo, tow_res, £thaw_res); 


tension lo = tow res + haw res; 


/* -- for given speed */ 
tow data(1)=oldspd; 
ship resist (tow data, ship data,res dat, &tow res); 
hawser resist (tug data, oldspd,tow_res, &haw_ res) ; 
mean = Low res + haw res; 
) 
else if (type==DOCK) 
{ 
/* -- for higer speed */ 
tow data[1)]zspdhi; 
dock resist(tug data,dock data,tow data,&tension hi); 


/* -- for lower speed */ 
tow data(1)=spdlo; 
dock_ resist (tug data, dock _data,tow data, &tension_lo); 


/* -- for given speed */ 

tow data[1)zoldspd; 

dock resist(tug data,dock data,tow data,&mean); 
) 
else /* type==BARGE */ 
{ 

/* -- for higer speed */ 
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tow data[1)zspdhi; 
barge resist(tug data,barge data,tow data,&tension hi); 


/* -- for lower speed */ 
tow data[1]-2spdlo; 


barge resist (tug data,barge data,tow data,&tension lo); 


/* -- for given speed */ 
tow data(l]=oldspd; 


barge resist (tug data,barge data,tow data, śmean); 


/* convert to kips */ 
tension lo /- 1000.0; 
tension hi /= 1000.0; 
mean /= 1000.0; 


/* set common indices */ 

set tugtype (&tugtype) ; 

set towtype(&towtype); 
tugtow = towtype + 6*tugtype; 


set wind(tow_data[2]), &windspeed); 
set hdg(tow data[3],&head); 
set scope(tug data[2],&length); 


7 find curve’ for śspdhi */ 
set towspd(spdhi, &towspdhi) ; 
curve hi-t(tugtow].s(windspeed] (towspdhi].c(head]) [length]; 


curvindex(curve hi,&i hi,&j hi); 


/* find curve for spdlo */ 
set towspd(spdlo, &towspdlo); 
curve lost (tugtow].s(windspeed] (towspdlo) .c(head) (length); 


curvindex (curve lo,&i 1lo,&j 10); 


/* compute tension arrays */ 

comp ten curv(i hi,j hi,x hi,y hi); 
clip(x_hi,y_hi}); 

comp_ten curv(i_lo,j_lo,x_lo,y_lo); 
elip(x_lo;y lo): 

comp ten curv(i,3,x,y); 

eli EER: 


/* compute extremes */ 

xx = tension_hi/100.0; 

extr hi = 100.0*(xx+fa[i hi] [j hi]*xx/(1.0*fb[i hi](j hi]*xx)* 
fc(i hi][j hi]*pow(xx,4.0)/(1.0-* 
fd(i hi](j hi]*pow(xx,4.0))); 


xx = tension lo/100.0; 

extr lo = TORO NAPA LS) SI (1. OrEb(i lo][j 10]*xx)* 
fe(i_lo](j_lo]*pow(xx,4.0)/(1.0+ 
fd(i lo]([3. le] *pow (st, 4.0))); 
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xx = mean/100.0; 

ome LUO (xx rta(i) (3) *xx«/ (1.0+f£b (1) (4) *xx) + 
fc(i) (3) *pow(xx,4.0)/(1.0+ 
£d[i] (3)*pow(xx,4.0))); 


/* save results */ 

spd data[0] [0]2spdlo; 

spd data[1][0]2oldspd; 
spd_data[2] [0]=spdhi; 

spd data[0][1]2curve lo; 
spd_data(1] (1]=curve; 
spd_data[2] (1]=curve hi; 
spd data[0] [2]2tension lo; 
spd_data[1] (2]=mean; 
spd_data(2] [2]=tension_hi; 
spd data[0] [3]zextr lo; 
spd_data[1] (3]=ext; 
spd_data([2) (3)=extr_hi; 


/* print results on screen; give option to graph */ 
clear (startrow+1,startcol+l,endrow-1,endcol-1,REV_VID); 
write header(startrow,startcol,endcol,labell[0],REV VID); 


/* -- write labels */ 

write _string(startrow+5,startcol+2, labell[6],REV_ VID); 
write string(startrowt7,startcolt2,labell(10],REV VID); 
write string(startrow-t8,startcolt2,labell[11),REV VID); 
write string(startrow-t9,startcolt2,1abell[12)],REV VID); 
write string(startrow-t10,startcolt2,1abell[13],REV VID); 


/* -- write tow speeds */ 
sprintf(labx,"*6.1f",spdlo); 
start=startcol+2+strlen (label1(13))+1; 

write string(startrowt5, start, labx, REV_ VID); 
sprintf (labx, "%6.1f£", oldspd) ; 
start=startcol+2+strlen(label1(13])+1+7; 
write string(startrowt5, start, labx, REV_VID); 
sprintf (labx, "%6.1£", spdhi) ; 
start=startcol+t2+strlen (labell[13))+1+14; 
write string(startrowt5, start, labx, REV_VID); 


/* -- write curve numbers */ 
sprintf(labx,"$&d",curve 10); 
start=startcol+2+strlen (labell[13])) +1+3; 
write string(startrowt7,start,labx,REV VID); 
spramtf(labx,"*d",curve); 
start=startcol+t2+strlen (labell[13)) +1+7+3; 
write string(startrowt7,start,labx,REV VID); 
sprintf (labx, "td",curve_hi); 
start=startcol+2+strlen(labell[13))+1+14+3; 
write string(startrowt7, start, labx, REV_VID); 


/* -- write mean tensions */ 
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Speaner(labx, "%6.1f", terion lo); 
start=startcol+t2+strlen (labell[13])) +1; 

write string(startrow+8,start, labx, REV VID); 
sprintf (labx, "%6.1f£", mean) ; 
start=startcol+2+strlen(label1(13])+1+7; 
write string(startrow+8, start, labx, REV VID); 
sprintf (labx, "%6.1f£", tension hi); 
start=startcol+2+strlen (labell(13))+1+14; 
write string(startrow+t8, start, labx, REV VID); 


/* -- write dynamic tensions */ 

xx = extr lo - tension lo; 

if (xx<0) xx=0; 

SPrimef (Labx, "SOME", xx); 
start=startcol+2+strlen(label1[(13])+1; 

write string(startrowt9,start,labx,REV VID); 
xx = ext -~ mean; 

if (xx<0) xx=0; 

SPEINCEFFIABx, "£6.1£f",xx); 
start=startcol+2+strlen(label1(13])+1+7; 
write string(startrow+9, start, labx, REV VID); 
xx = extr hi - tension hi; 

if (xx<0) xx=0; 

Serintf(labx, "%6.1£", xx); 
start=startcol+2+strlen(label1[13])+1+14; 
write_string(startrow+9,start, labx, REV VID); 


/* -- write extreme tensions */ 
"przuntf(labx,' *$6.1f",extr lo); 
start=startcol+2+strlen(label1(13])+1; 

write string(startrow+10,start,labx,REV_VID); 
Serinct (labx, "t6.1f£", ext): 
start=startcol+2+strlen(label1(13])+1+7; 
write string(startrow+10,start,labx,REV_VID); 
sprintf (labx, "$6.1f",extr hi); 
start=startcol+2+strlen(label1(13])+1+14; 
write string(startrow+10, start, labx,REV_VID); 


/* -- give menu to graph or quit */ 
start - (endcol-startcol-strlen (menu2(0]))/2 + startcol; 
choice=popup (menu2, "12",2,startrow+12,start-2,NONE, REV_VID, 0); 


if (choice==1) 
return; 
else if (choice==0) 


d 


setplt(); /* initialize graphics */ 
locate (&x0i, &y0Oi, &xli, &yli); /* set position on screen */ 
xyaxis (&xmn, &xmx, &xtc, &ymn, &ymx, 

&ytc, &xmn, &ymn, &kd) ; /* draw axes */ 
axnum(&ntx, &nty); /* write axis numbers */ 
itype=1; 
sprintf (labx, "Mean Tension (kips)_"); 
label (&itype, labx); /* write x-axis label */ 
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itype=2; 
sprintf (laby, "Extreme Tension (kips) $E 
label (&itype, laby); 


npts=122; 
line3(&npts,x hi,y hi); 
line3 (&npts,x lo,y 10); 
line3 (&npts,x,y); 


/* if mean > 120 kips, don’t plot points */ 
if (tension lo<=120.0) 
( 
npts=1; 4” plot 
x lo(0]= tension _lo; 
y_lo[0]= extr_lo; 
nsym=4; 
symplt (&npts, x_lo,y_ lo, &nsym) ; 
) 
x_lo(0]= 30.0; 
y lo(0]= ysm+5; 
symplt(&npts,x lo,y lo,&nsym); 


if (mean<=120.0) 
( 
x[0]= mean; 
y[0]= ext; 
nsym=3; 
symplt (&npts,x,y, &nsym); 
} 
x(O)= 55.0; 
y(0]= ysm+5; 
symplt (£npts, x, y, &nsym) ; 


Sf (tension hi<=120.0) 
{ 

x hi(0]= tension hi; 

y hi[0]2 extr hi; 

nsym=2; 

symplt (&npts,x hi,y hi, &nsym) ; 
) 
x hi(0]* 80.0; 
y hi[0]= ysm+5; 
symplt(&npts,x hi,y hi,&nsym); 


/* write labels */ 

xi. 35.0; 

yl= vam: 

sprintf(labx,"*-.0f kts ",spdlo); 
labely(&x1l,&yl,labx); 

xl= 60.0; 

yl= ysm; 

sprintf (labx, "%-.0f kts_",oldspd); 
labely(&x1,&yl,labx); 

xls 85.0; 
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symbols 


/* write y-axis label */ 


/* draw line thru pts */ 


sy 


yl= vam: 
sprintf (labx, "*-.0f kts ",spdhi); 
labely(&x1,&yl,labx); 


wait plt(); 
) 
else 


return ; 


f[ Fe e hee ce ec ee ee e e ee e e e e e ke ce e e e e e e e e X N N X NN XN XX e Ok e Ok e e X X N XX XX N N X N XX N 


This function shows the effects of hawser length on extreme tension 
by computing the mean tension for Length +/- 300 feet, 
appropriate extreme tension curves, 


finding the 

and displaying a graph of all three 
curves. A summary of results is displayed prior to displaying the graphs. 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 

void show length (type,i, j,curve) 

int type; 

inc.) 1, 3), curve; 

{ 
float 
float 
float 
float 
float 
int 


subs [121), xe10[121],y hi(121),y_lo(121]; 

sel (121): 

tension hi,tension lo,extr hi,extr 1o; 

mean, ext; 

NOSLGEM, lolgth,oldlgth; 
tugtype,towtype,tugtow,windspeed, head, towspeed; 
lengthhi, lengthlo; 

curve hi,i hi,j hi; 


int 


int 


Intweurvuw lo,i lo;j lo; 

iat k? /* dummy counter */ 

cleat x1,yl,x2, y2; /* coordinates for drawing */ 

char labx(25],laby(25); /* strings for x, y axis labels */ 
short kd=2; /* graph "kode" */ 


short npts; /* number of points to plot */ 

short ntx=2,nty=1; /* skip factor for axis numbers */ 
short itype; /* designates x or y axis label in label () */ 
short nsym; /* symbol code */ 

float x0i=1.0764; 

float y0i=1.0; 

float xli=6.624; 

float ylis4.35; 

float xmn=0.0; /* min x value */ 

float xmx=120.0; /* max x value */ 

float xtc#10.0; /* x axis tic value */ 

float ymn=0.0; /* min y value */ 

float ymx=400.0; /* max y value */ 

float ytc=50.0; /* y axis tic value */ 

float xxmax; /* x corresponding to y=400.0 kips */ 
float ; 

float res dat[5); 


float 
float 
float 


tow res,haw res; 
xx; 
xsm, ysm; 


int start,choice; 
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xsm = xm - (x0i/x1i) * (xmx-xmn) ; 
ysm ymn - (yOi/yli)*(ymx-ymn); 


/* write message */ 

draw window(startrowtll,startcol*12,startrowtl3,startcol-*27, 
SINGLE,REV VID); 

sprintf (labx, "Please wait"); 

start = (endcol-startcol-strlen(labx))/2 + startcol; 

write_string(startrow+12,start,labx,BLINK_REV_VID); 


/* set hawser lengths */ 
oldlgthztug data(2]; 
lolgth=tug_data[2]-300.0; 
if (lolgth<1000.0) 
lolgth=1000.0; 
hilgth=tug_data[2]+300.0; 
if (hilgth>2100.0) 
hilgth=2100.0; 


/* compute mean tension */ 
if (type==SHIP) 
{ 


ship resist (tow data,ship data,res dat, &tow res); 


/* -- for longer length */ 

tug data[2]-hilgth; 

hawser resist(tug data,tow data[1],tow res,&haw res); 
tension hi = tow res + haw res; 


/* == for shorter length */ 

tug data [2]-lolgth; 

hawser resist (tug data,tow data[1],tow res,&haw res); 
tension lo - tow res + haw Ces: 


/* -- for given length */ 
tug_data[2]=oldlgth; 
hawser resist(tug data,tow data[1],tow res,&haw res); 
mean — tow res # haw res; 
) 
else if (type==DOCK) 
{ 
/* -- for longer length */ 
tug data[2]zhilgth; 
dock resist(tug data,dock data,tow data,&tension hi); 


/* -- for shorter length */ 
tug data[2]21lolgth; 
dock resist(tug data,dock data,tow data,&tension lo); 


/* -- for given length */ 


tug data[2]zoldlgth; 
dock resist(tug data,dock data,tow data,&mean); 
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else /* type==BARGE */ 
{ 
7-2 -—- for longer length */ 
tug data[2]zhilgth; 


barge resist(tug data,barge data,tow data,&tension hi); 


/* -- for shorter length */ 
tug data[2]=lolgth; 


barge resist(tug data,barge data,tow data,&tension 1o); 


/* -- for given length */ 
tug data(2]soldlgth; 
barge resist(tug data,barge data,tow data, &émean) ; 


/* convert to kips */ 
tension_lo /= 1000.0; 
tension hi /= 1000.0; 
mean /= 1000.0; 


/* set common indices */ 

set tugtype (&tugtype); 

set towtype (&towtype) ; 

tugtow = towtype + 6*tugtype; 


set towspd(tow data[1],&towspeed); 
set wind(tow data[2],&windspeed); 
set hdg(tow data[3],&head); 


/* find curve for hilgth */ 
set scope (hilgth,&lengthhi); 
curve hi=t [tugtow].s[windspeed] [towspeed] .c[head] [lengthhi] ; 


curvindex (curve hi,¿i hi,&j hi); 


/* find curve for lolgth */ 

set scope (lolgth, élengthlo); 

curve lo-t[tugtow].s[windspeed] [towspeed] . c [head] [1engthlo]; 
curvindex(curve lo,&i 10o,&j 109); 


/* compute tension arrays */ 

comp ten curv(i hi,j hi,x hi,y hi); 
clip(x_hi,y hi); 

comp ten curv(i_lo, j_lo,x_lo,y_1o); 
clip(z=io,y lo); 

comp ten curv(i,j,x,y): 

clipix, v) 


/* compute extremes */ 

xx - tension hi/100.0; 

extr hi = 100.0*(xx*fa[i hi][j hi]*xx/(1.0*fb[i hi][j hi]*xx)* 
fc[i hi][j hi]*pow(xx,4.0)/(1.0* 
fd[i hi][j hi]*pow(xx,4.0))); 


xx = tension lo/100.0; 
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extr lo door 0 (Sad 1 lo] (3 telte/ (1:6EB 1 1o) [j_10) *xx) + 
£c[i_lo] (3_lo] *pow(xx, 4.0)/ (1.0+ 
fd[i_lo][3_lo)*pow(xx,4.0))); 


xx = mean/100.0; 

ext = 100.0*(xx+tfa(i] [j]*xx/(1.0+fb(i] ()) *xx) + 
fc[i] (j)]*pow(xx,4.0)/(1.0+ 
fd[i] [j]*pow(xx,4.0))); 


/* save results */ 
lgth_data[0) [0]=lolgth; 
lgth data[1][0]2oldlgth; 
1gth_data [2] (0]=hilgth; 
lgth data[0][1]zcurve 1o; 
lgth data[1][1]2curve; 

lgth data[2][1]2curve hi; 
lgth data[0][2]-2tension 1o; 
lgth_data(1] (2] mean; 
lgth_data(2] [2]=tension_ hi; 
lgth_data[0) [3]=extr_lo; 
lgth data[1][3]zext; 
lgth_data[(2] (3]=extr hi; 


/* print results on screen; give option to graph */ 
clear (startrow+1, startcol+1,endrow-1,endcol-1,REV_VID); 
write header (startrow, startcol,endcol,labell[0],REV_VID); 


/* -- write labels */ 

write string(startrowt5,startcol*2,labell[9],REV VID); 
write string(startrow-t7,startcol*2,labell[10],REV VID); 
write string(startrow-8,startcol*2,labell(11),REV VID); 
write string(startrowt*9,startcol*2,1abell(12),REV VID); 
write string(startrow-*10,startcol*2,1abel11[13],REV VID); 


/* -- write hawser lengths */ 

sprintf (labx, "4%6.0£",lolqth) ; 
start=startcol+2+strlen (labell[13]) +1; 

write _string(startrow+t5, start, labx, REV_VID); 
Sprinve (labs, "t6e0f£", olldlgth) ; 
start=startcol+2+strlen(labell(13)])+1+7; 
write string(startrowt5, start, labx, REV_VID); 
Sprint f(labx,"s6.0f", hilgth) ; 
start=startcol+2+strlen(labell (13) )+1+14; 
write string(startrow+5, start, labx, REV_VID); 


/* -- write curve numbers */ 

sprintf (labx, "%d",curve_ lo); 
start=startcol+2+strlen (labell[13])+1+3; 
write string(startrow+7,start,labx,REV_VID); 
sprintf (labx, "%d", curve) ; 
start=startcol+2+strlen(label1(13])+1+7+3; 
write string(startrow+7,start,labx, REV_VID) ; 
sprintf (labx, "%d",curve_ hi); 
start=startcol+2+strlen(label1l(13)])+1+14+3; 
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write _string(startrow+7, start, labx, REV VID); 


/* -- write mean tensions */ 
sprintf(labx,"$6.1f",tension lo); 
start-startcolt24strlen(1abell(13])-41; 

write string(startrowtB,start,labx,REV VID); 
sprintf (labx, "%6.1f£",mean) ; 
start=startcoltż+strlen(label1(13])+1+7; 
write string(startrow+8, start, labx, REV VID); 
sprintf (labx, "%6.1£", tension hi); 
start=startcol+2+strlen (labell (13) )+1+14; 
write string(startrowtB,start,labx,REV VID); 


/* -- write dynamic tensions */ 

xx = extr lo - tension lo; 

if (xx<0) xx=0; 

Spranct (labx, "%6.1£", xx); 
start=startcol+2+strlen(label1(13])+1; 

write string(startrow+9, start, labx, REV_VID); 
Xx = ext ~ mean; 

if (xx<0) xx=0; 

print (labx, "$6.1£",xx); 
start=startcol+2+strlen (labell[13])) +1+7; 
write string(startrow+9, start, labx, REV_VID); 
xx = extr hi - tension_hi; 

if (xx«0) xxz0; 

sprintf (labx,"%6.1f", xx); 
start=startcol+2+strlen(label1(13)])+1+14; 
write string(startrowt9, start, labx, REV_VID); 


/* -- write extreme tensions */ 
sprintf(labx,"$6.1f",extr 1o); 
start=startcol+2+strlen(label1[(13))+1; 

write string(startrowt10, start, labx,REV VID); 
sprintf (labx, "%6.1f£", ext) ; 
start=startcol+2+strlen(labell[(13])+1+7; 
write string (startrow+t10, start, labx, REV_VID); 
sprintf(labx,"$6.1f",extr hi); 
start=startcol+2+strlen (labell(13))+1+14; 
write string(startrowt10, start, labx, REV VID); 


/* -- give menu to graph or quit */ 
start - (endcol-startcol-strlen (menu2([0]))/2 + startcol; 
choice=popup (menu2, "12",2,startrow+12,start-2,NONE, REV_VID, 0); 


1f (choice==]) 
return; 
else if (choice==0) 


( 


setplt (); /* initialize graphics */ 
locate(&xOi,&yOi,&xli,&yli); /* set position on screen */ 
xyaxis(&xmn,&xmx,&xtc,&ymn,&ymx,&ytc,&xmn,&ymn,&kd); /* draw axes */ 
axnum(&ntx,&nty); /* write axis numbers */ 

itypez1; 
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sprintf (labx, "Mean Tension (kips) "); 


label (&itype, labx) ; /* write x-axis label 
itype=2; 

sprintf (laby, "Extreme Tension (kips)_"); 

label (&itype, laby); /* write y-axis label 
npts=122; 

line3(&npts,x hi,y hi); /* draw line thru pts 
line3(&npts,x lo,y lo): /* " 

line3 (&npts,x,y); /* H 


/* don't plot points if mean tension » 120 kips */ 
if (tension lo<=120.0) 
( 
npts=1; /* plot symbols 
x_lo(0]= tension 1o; 
y lo[0]5» extr lo; 
nsym=4; 
symplt (Enpts, x _lo,y lo, &nsym); 
} 
x_lo[0]= 30.0; 
y lo[0]2 ysmt5; 
symplt (&npts,x lo,y lo,&nsym) 


if (mean<=120.0) 
( 
x[0]= mean; 
y[0]= ext; 
nsym=3; 
symplt (&npts,x, y, &nsym) ; 
} 
x(Oj= 55.0; 
y(0]» ysm+5; 
symplt (&npts,x, y, &nsym); 


if (tension lo<=120.0) 
( 
x hi[0]= tension hi; 
y hi[0]= extr_hi; 
nsym=2; 
symplt(&npts,x hi,y hi,&nsym); 
) 
x hi[0O]* 80.0; 
y hi[0]= ysm+5; 
symplt (&£npts,x_hi,y hi, &nsym); 


/* write labels */ 

xl= 35.0; 

yl= ysm; 

sprintf (labx, "*-.0f£ ft ",lolgth); 
labely(&x1,&yl,labx); 

xlz 60.0; 

yl= ysm; 

sprintf (labx, "*-.0f£ ft ",oldlgth); 
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labely(&x1,&yl,labx); 

xle 85.0; 

yl= ysm; 

sprintf(labx,"$-.0f ft ",hilgth); 
labely (&x1, &yl, labx) ; 


wait plt(); 
} 
else 

return ; 


/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


This function computes the array of points to plot for 

the standard tension curve indicated by i and j. 
xkkkikikikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
void comp_ten_curv(i, j,x,y) 
LAA 
Bloat *x, *y; 
{ 

ine k; 

float x1; 


for (k=0; k<121; k++) 
{ 
x(k)=(float)k; 
xlzx[k]/100.0; 
y(k)= 100.0* (xl+fa[(i) (3) *x1/(1.0+fb(i) (3) *x1) 
SES (gi exl xd "xl *xly (1 .0+£a (1) (5) <xl* xl *x1*x1))-; 
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This function finds the intersection of a plotted curve 
with the top border and "clips" it to keep everything 
within the borders of the graph. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
void clip (x,y) 
float Zar 
{ 
int flag=0; 
int k; 
float x1,x2,y1l,y2,xxmax; 


/* test for extreme » 400 kips */ 
for (k=0; k<121; k++) 
( 
if (y(k]<=400.0) 
{ 
xl=x[k]; 
yl=y(k]; 
} 
else if (!flag 66 y(k]>400.0) 
( 
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x2=x(k); 
y2=y[k]; 
flag=1; 


/* interpolate to find xxmax */ 
xxmaxexlt(x2-x1)/(y2-y1)*(400.0 - y1); 


/* set next plotting point to intersection of curve with border */ 
y [k]=400.0; 
x[k]=xxmax; 

} 


else 


{ 
y [k]=400.0; 


/NNNN NN NN NN NN NNN NNN NN NN NN NN NN NN NN NN NN NN NN NN NN N NK NXN NN NN ÑK NN NN N 


This function pauses until the user hits a key, then 
closes the graphics environment. 
FX e e e e e e e e e e e e e P e e NNN NN NN NN NN NN NN NN NN N N NXN NN e e i ke te tee 
void wait plt() 
( 
union inkey { 
char ch[2]; 


int i; 
ag: 
while (1) 
{ 
c.i = bioskey (0); /* read the key */ 
14 (c.ch.(0)) /* key is a normal key */ 
break; 
else /* key is a special key */ 
break; 
) 
endplt(); /* close graphics SN 
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f| NCC e ee c e e e e e e e e e Oe N N X N NN NX NN N N X X XN NN NN N N N N X N X N X NX Ñ X N XX X X X X XX NN X X X X X NX XX X x 
File: pull.c 
Author: Todd J. Peltzer 
Last update: 24 April 1989 


This file contains the functions which evaluate a tug’s ability to tow 
a given vessel at a specified speed. 
Functions: 
tugpull () 
show tugpull() 
find avail() 
get tugpull opt () 
tugpull socrn() 
tugpull data() 
e ce eoe cc e e oe e ec e e e e e e e e he e e e e che e e e e oe he e e e e he oe N NNN N XN X NX NNN NNN XX X N XX XN XN NX XX XX XX X X X X / 
#include "stdio.h" 
#include "keydef.h" 
#include "video.h" 


void tugpull(), show tugpull(),tugpull_scrn(),tugpull_ data (); 
float find _avail(); 


extern char tug[15]; /* tug class x / 
extern char hull no[24]; /* hull number entered by user */ 
extern float tug data[5]; /* array to store tug data * / 
extern float tow _data[5]; /* array to store tow data * / 
extern float ship data[6]; /* array to store Table G-2 data */ 
extern float dock data[7]; /* array to store drydock data */ 
extern float barge dataí8]; /* array to store barge data */ 
extern float tug eval[?7]; /* tug evaluation results xr 


static int startrow=2; 
Static int startcol=20; 
static int endrow=22; 
static int endcol=60; 


static char *menu[(] = 

{ 
"1) Use best possible speed ", 
"2) Use original tow speed ", 
"3) Show graph "e 
"4) Return to PROGRAM OPTIONS" 

y; 


static char *labell[()] = 
{ 
"TUG EVALUATION", 
"BUSE, 
"Tow:", 
"Desired tow speed:", 
"Mean tension:", 
"Available tension:", 
"Best tow speed:", 
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"Please wait" 


Ke 
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This function compares the mean towline tension with the available 
towline tension for the given tug at the specified tow speed. If there 
is insufficient tension available, the tow speed in reduced until the 
available tension exceeds the mean towline tension. 


POLES EGLO MEAT AANA OO NNEC ANE EMMA EERE AA NOAA ARANA R 


void tugpull (type, tension) 


int type; /* type of tow: ship, dock, or barga */ 

float “tension; /* mean towlíne tension */ 

( 
FILE "in; /* pointer to input file "/ 
int figge0; /* status flag t / 
me i,j; /* counters à / 
int tugtype; /* type of tug Kë 
char inline([81]; /* string for getting input e / 
char text1[37],text2(37]; /* error message text strings d 
char string[25]; /* text string Zi 
float array(5); /* input data array * / 
float status,nbr; /* required argumenta for stofa() */ 
float speed(20); /* array of tow speeds di 
float avail(4) (20); /* array of available tensions di 
float avail ten; /* return value of find avail () a / 
float old avail; /* value used in iteration scheme  */ 
float vtow avail; /* available tension at vtow di 
float best avail; /* available tension at best speed */ 
float old mean; /* value used in iteration scheme  */ 
float vtow; /* tow speed S 
float mean = “tension; /* tenaion at original tow speed wj 
float best mean; /* tension at heat speed a / 
float best spd; /* beat possible speed a4 
float res dat[5]; /* required arg. for ship resist() */ 
float tow res,haw res; /* tow, hawaer resistance a / 
int choice; /* popup menu selection 8 / 


int start,hilites0; 
inefopen("tugpull.dat","r"); 


vtowetug eval(O]etow data[1]; 
tug eval[(1) = “tension; 


/* draw screen, labels, preliminary data */ 
tugpull_scrn(vtow, mean); 


/* read available tow tension data from file */ 
fgeta (inline, 21,in); 
fgets (inline, 81,in); 
for (b«0; 1420; 14+) 
{ 
fgetea (inline, 81,in); 
status = atofa(inline, array, 4nbr, 9); 
speed(ijearray(9); 
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for (j€0; j<4; j++) 
( 
avail[j) [iJ=array[j+1l); 


/* find available tow tension for given tow speed */ 
tugtype-tug data[0]; 
avail ten=find_avail(tugtype, vtow, speed, avail); 
vtow_avail=tug_eval[2]=avail_ten; 
if (avail ten < 0.0) 
{ 
sprintf(textl,"Tow speed outside the limits of"); 
eprintf(textl,"Figure 6-1"); 
display error(ERROR,textl,text2); 
get options (1); 
return; 


/* write available tension */ 
start=startcol+3+strlen(labell(3)])+5; 

sprintf (string, "%6.0£", avail ten); 

write string(startrow+9, start, string, REV VID); 


/* compare mean tension to available tension */ 
i=0; 
old availzavail ten; 
old _ mean = *tension; 
while (1) 
( 
best_spd=tow data[l)]=speed([i]; 
if (type==SHIP) 
( 
ship resist (tow data,ship data,res dat,&tow res); 
hawser resist (tug data,tow data[1],tow res,&haw res); 
*tension = tow resthaw res; 
} 
else if (type==DOCK) 
{ 
dock resist(tug data,dock data,tow data,tension); 
} 
else /* type==BARGE */ 
{ 


barge resist (tug data,barge_data,tow_data,tension); 


avail ten=find_avail(tugtype,best_spd, speed, avail); 


if (avail ten « 0.0) 


( 
sprintf(textl,"Tow speed outside the limits of"); 


sprintf(text2,"Figure 6-1"); 
display error(ERROR,textl,text2); 
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else if (avail ten < *tension) 
{ 
best spd=speed(i-1]; 
best availsavail ten=old avail; 
best mean = *tension = old mean; 
break; 
} 
else 
{ 
old avail=avail ten; 
old _mean=*tension; 
i++; 


/* erase wait message */ 
clear (startrow+t15, startcol+1l2,startrow+tl7,startcol+27,REV VID); 


/* write best possible speed */ 
start=startcol+3+strlen(labell[3]) +5; 

sprintf (string, "%6.1f",best spd); 

write string{startrow+tll, start, string, REV_VID); 


/* write mean tension */ 
sprinuf(atring," *6.0f",*ténBion); 
write string(startrow+12, start, string, REV_VID); 


/* write available tension */ 
sprintf (string, "%6.0f",best avail); 
write string(startrow+13, start, string, REV_VID); 


/* write units */ 

start=endcol-5; 

sprint£(äatring, "kt#"); 

write string(startrow+tll, start, string, REV_VID); 
sprintf(string, "lba") ; 
write_string(startrow+12,start,string,REV VID); 
write string(startrow*13,start,string,REV VID); 


/* save results */ 

tug eval(3]*best spd; 
tug eval[4]*-best mean; 
tug evall5]sbest avail; 


/* display options, get response */ 
while (1) 
{ 

choicesget tugpull opt(hilite); 


if (choice==0) /* use best possible speed */ 
( 

tow data(1)=best_ spd; 

*tension=best mean; 

tug_eval(6]=0; 
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} 


hilite=2; 

flag=l; 

sprintf(textl, "Best possible tow speed set"); 
display error (BLANK, textl, " p 

cursor_off(); 


continue; 


else if (choice==1) /* use original tow speed */ 


{ 


} 


if (vtow_avail<mean) /* can’t make desired speed */ 


{ 
sprintf (textl,"Tug has inadequate pull at this speed"); 


sprintf (text2, "==> choose best speed option <=="); 
display error (ERROR, textl,text2) ; 

hilite=0; 

flag=0; 


cursor off(); 

continue; 
} 
tow data[1]-2vtow; 
*tensionzmean; 
tug eval[6]s1; 
hilite=2; 
flag=1; 
Sprintf (textl, "Original tow speed set") ; 
display error (BLANK,textl," "); 
cursor off(); 


else if (choice==2) /* show graph */ 


{ 


if (!flag) /* speed not chosen */ 
{ 
sprintf (textl, "Tow speed has not been selected"); 
sprintf (text2,"==> please choose a tow speed <=="); 
display error (ERROR, textl, text2) ; 
hilite=0; 
cursor off(); 
continue; 
} 
show tugpull(speed,avail,vtow,best spd,vtow avail,best avail); 
hilite=3; 
cursor off(); 
tugpull scrn(vtow,mean) ; 
tugpull data(vtow avail,best spd,best mean,best avail); 


continue; 
) 
else if (choice==3 || choice<O) 
{ 
if (!flag) /* speed not chosen */ 


{ 


sprintf (textl, "Tow speed has not been selected"); 
sprintf (text2,"==> please choose a tow speed <=="); 
display error (ERROR, textl,text2) ; 

hilite=0; 
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cursor off(); 
continue; 


} 


break; 


) 
cursor off(); 
return; 
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This function finds the available tension from the given tug at the 
given speed. 
EE MEE EK Ek ARE ARE ER RE RR RR RR RR RR RE KERKE RE RE RR KERE HERE ER RR RR RR RR ERROR RR Ef 
float find avail (tug, vtow, speed, avail) 
int tug; 
float vtow; 
float *speed; 
float avail([) [20]; 
{ 
intei; 
float avail ten; 
float delx,fac; 


for (i=0; i<20; i++) 
{ 
if (vtow==speed(i)) 
{ 
avail ten=avail (tug) (iJ); 
return avail ten; 


) 
else if (vtow<speed[i]) 
continue; 
else if (vtow>speed[i] 66 vtow<speed[i+l]) 


{ 
delxzspeed[itl1] - speed(i]; 
fac=(vtow-speed[i])/delx; 
avail ten=(avail[tug)] (i+1)-avail(tug]) (i)) *factavail (tug) [1]; 


return avail ten; 


) 


return -1.0; 


f. f ee ee eee e e e eoe e e e e e e e e e e e e e e e e e je e e e e e e e e je e e e e e e he e he e e e e e X XN NN e N XN NN XX XX X 
This function displays the options available and returns the user's 


choice. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


get tugpull opt (hilite) 
intehilite; 
{ 


int choice, start; 


/* write options menu */ 
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start=(endcol-startcol-strlen (menu[0])))/2 + startcol; 
choice=popup (menu, "1234",4,startrow+14,start-2,NONE,REV_VID,hilite); 


return choice; 


f|. PCs ke eoe se dece e eoe Ye dece e deck eco ke e ec e de e NXN NN NX N N NN XN NX X N NN X N NX XX XX XX XN NX X N e e e e e N 


This function displays a reproduction of Figure 6-1 in the Towing 
Manual, showing available tension versus tow speed for each class 
of tug used in this program (ATF is not used); 
Y Ye ok o c ec e ec eec ede e de de e dece eode oc / 
void show tugpull(speed,avail,vtow,best spd,vtow avail,best avail) 
float *speed; 
float avail(][209]: 
float vtow,best spd; 
float vtow avail,best avail; 


( 


iat j,k? /* dummy counter */ 

feat x[(101],y(101); /* arrays to hold x, y coordinates */ 
flewt xl,yl,x2,y2; /* coordinates for drawing lines */ 
char labx(25],1aby(25]: /* strings for x, y axis labels */ 
short kd=2; /* graph "kode" */ 

short npts; /* number of points to plot */ 

short ntx=2,nty=2; /* skip factor for axis numbers */ 
short itype; /* designates x or y axis label in label() */ 
short nsym; /* symbol code */ 

float x0i=1.0764; /* screen parameters */ 

float yOi=1.0; /* d S */ 

float xli=6.624; /* " $ E 

float yli=4.35; zt d x wë 

float xmn=0.0; /* min x value */ 

float xmx=16.0; /* max x value */ 

float xte=2.0; /* x axis tic value */ 

float ymn=0.0; /* min y value */ 

float ymx=200.0; /* max y value */ 

float ytc=25.0; /* y axis tic value */ 


float xxmax; 


float xsm,ysm; /* smallest x,y in world coordinates */ 


xsm = xmn — (x0i/xli)*(xmx-xmn); 
ysm = ymn - (y0i/yli)*(ymx-ymn); 


setplt(); /* initialize graphics */ 
locate (&x01, &y0i, &xli, &yli); /* set position on screen */ 
xyaxis (&xmn, &xmx, &xtc, &ymn, &ymx, 

&ytc, &xmn, &ymn, &kd) ; /* draw axes */ 
axnum(&ntx, &nty); /* write axis numbers */ 
itypez1; 
sprintf (labx, "Tow Speed (kts) "); 
label (£itype, labx); /* write x-axis label */ 
itype=2; 
sprintf (laby, "Available Tension (kips) "); 
label (&itype, laby); /* write y-axis label */ 
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npts=21; 
for (k=0; k<4; k++) 
{ 
for (j=0; 43<20; j++) 
{ 
x(j)=speed(j); 
y(j)=avail(k) [j)/1000.0; 
} 
line3 (&npts,x,y): /* draw liné thru pts */ 


xl= speed(4); /* write labels */ 
yl= avail(3) (4) /1000.0+5.0; 

sprintf (labx, "T-ATF 166 "hi: 

labely(6xl,śyl, labx); 


xl= speed(2); 

yl= avail(1](2)/1000.0-20.0; 
sprintf (labx, "ARS 50_"); 
labely(&x1,&yl,labx); 


xl speed(12); 

yl= avail[2][12]/1000.0+5.0; 
sprintf (labx, "ATS 1_"); 
labely(&x1l, &yl, labx) ; 


xl- speed(2]; 

yl» avail(0)[2)/1000.045.0; 
sprintf (labx, "ARS Som") ; 
labely(&xl,&yl,labx); 


/* plot symbols */ 

npts=1; 

xl= vtow; 

yl= vtow avail/1000.0; 
nsym=4; 
symplt(&npts,&xl,&yl,&nsym); 
xe 3707 

yl= ysm+2.5; 

symplt (£npts, £x1l, £yl, £nsym) ; 
xlz best spd; 

yl= best _avail/1000.0; 
nsym=2; 

symplt (&npts, &xl, &yl, &nsym); 
xl= 10.0; 

yl= ysm+2.5; 

symplt (&npts, &x1, &yl, &nsym) ; 


/* write labels */ 

xl= 4.0; 

yl= ysm; 

sprintf (labx, "Desired Speed"); 
labely (&x1, &yl, labx) ; 

0 140; 


2980; 


yl= ysm; 
sprintf (labx, "Best Speed"); 
labely(&x1l,&yl,labx); 


/* wait for keystroke, then exit */ 
wert plt(); 
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This function creates the tug evaluation display. 


kkkkkkkkikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk%kk kkkkkkkkk/ 


void tugpull scrn(vtow,tension) 


float vtow,tension; 


{ 


int i, start; 
char string(25]: 


draw window (startrow, startcol, endrow, endcol, DOUBLE, REV VID); 


/* write header */ 


write header(startrow,startcol,endcol,labell[0],REV VID); 


/* write labels */ 
for (i=l; i<6; itt) 
write string(startrowt4ti,startcolt3,labell[i],REV VID); 


/* draw dividing line */ 
for (i=0; i<(endcol-startcol-5); i++) 
write char (startrowtl10, startcolt3ti, 196, REV VID); 


/* write remaining labels */ 

write string(startrowtll,startcolt3,labell[6)],REV VID); 
write string(startrowt12,startcolt3,labell[4],REV VID); 
write string(startrowt1l3,startcolt3,labell1[5],REV VID); 


/* write tug and tow */ 
start=startcol+t3+strlen (labell[1])+2; 

write string (startrow+t5, start, tug, REV_VID); 
write string(startrowt6,start,hull no,REV VID); 


/* write desired tow speed, mean tension */ 
start=startcol+3+strlen (labell[3))+5; 
sprintf(string, "%6.1f",vtow); 

write string(startrowt7, start, string, REV_VID); 
sprintf (string, "%6.0f", tension) ; 

write string(startrowt8,start,string,REV VID); 


/* write units */ 

start=endcol-5; 

sprintf (string, "kts"); 

write string(startrowt7,start,string,REV VID); 
sprintf (string, "lbs"); 

write string(startrowt8,start,string,REV VID); 
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write _string(startrowt+t9, start, string, REV VID); 


/* write wait message */ 

draw window (startrowt15, startcol+12, startrowtl7, startcolt27, 
SINGLE, REV VID); 

sprintf (string, "Please wait"); 

start = (endcol-startcol-strlen (string))/2 + startcol; 


write string(startrowtl6,start,string,BLINK REV VID); 
return; 


f ROO e e e e e P e e e ee MIRRA DR RR GO e W UO e ee je e e e ee hi te te he tebe 


This function writes the results of the tug evaluation on the screen. 


F9 x P dà e e Pe e d de he e e de de de e e e e Pe Fe e e ee e e ee e e e UH GO e Ue e e e e e e e heh / 


void tugpull data(vtow avail,best spd,best mean,best avail) 
float vtow avail; 

float best spd; 

float best mean; 

float best avail; 


( 


intowtart:;: 
char string(25]; 


/* erase wait message */ 


clear (startrow+15,startcol+12,startrow+17,startcol+27,REV_'1D); 


/* write available tension */ 
start=startcol+3+strlen(labell{3])+5; 

sprintf (string, "%6.0£", vtow_ avail); 

write string(startrowt9, start, string, REV_VID); 


/* write best possible speed */ 
start=startcol+3+strlen (labell[3]) +5; 

sprintf (string, "%6.1f",best_spd); 
write_string(startrow+tll, start, string, REV_VID); 


/* write mean tension */ 
sprintf (string, "*6.0f", best mean); 
write string (startrowtl2, start, string, REV VID); 


/* write available tension */ 
sprintf (string, "%6.0f",best avail); 
write string(startrowtl3,start,string,REV VID); 


/* write unita */ 

start=endcol-5; 

sprintf (string, "kts"); 

write string(startrowtll, start, string, REV_VID); 
sprintf (string, "lbs"); 

write string(startrowt12, start, string, REV_VID); 
write string (startrowt13, start, string, REV_VID); 
return; 
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File: rp.c 
Author: Todd J. Peltzer 
Last update: 19 April 1989 


This file contains the functions which generate a report and send 
it to the printer 
Functions: 
report () 
MEL i "RN VN Y Y e ded dee deoteie desee deese dejeiecoeie kde eee he ee e ee ee / 
#include "stdio.h" 
#include "dos.h" 
#include "string.n" 
#include "video.h" 


void raport (); 


static char *tabtow[] = 
( 


"YRBM", 

Bee An. 

"DD 963", 

"AE 26", 

"LHA 1", 

ECUN $5" 
y; 
extern char tug[15]; /* tug class */ 
extern char hull no[24]; /* hull number entered by user */ 
extern char class[24]; /* class of ship from Table G-2 */ 
extern float tug data[5]; /* array to store tug data */ 
extern float tow data[5]; /* array to store tow data */ 
extern float ship data[6]; /* array to store Table G-2 data */ 
extern float dock data[7]; /* array to store drydock data 2 
extern float barge data[8]; /* array to store barge data Mi 
extern float tension; /* mean towline tension * 
extern float extr ten; /* extreme towline tension RZ 
extern int curve; /* curve number from extreme */ 
extern int flaqg[3]; /* error checking flag array Sr 
extern int type; /* tow type er 
extern float barge res[6$]; /* computed barge parameters */ 
extern float resist dat[5]; /* resistance data * / 
extern float ext data[10]; /* extreme tension results * / 
extern float spd data[3][4]; /* tow speed effects results */ 


extern float lgth data[3][4]; /* hawser length effects results */ 
extern float tug eval[?7]; 


static char *menu[) = 

{ 
"1) Sgñid Feport to printer > 
"2) Send report to file only ", 
"3) Return to PROGRAM OPTIONS" 

); 
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TALLER E 


This function generates the report, and sends it to the printer 
if the user has indicated that choice. 


EE EA Ne SG Makak A kdo c bé rh NETTE e Ah DA ep AAA Abbe / 


void report () 


( 


char inline[(81),outline (8l), text [40]; 
char text1[39],text2[239]; 

char mssg(9) (81); 

int start,end,i, j, choice, prnt=#90; 
float tow_res,haw res; 

float x1,x2,x3; 

FILE *in,*out; 

int startrow=2; 

int startcol=20; 

int endrow=22; 

int endcol=60; 


clear (startrow+1, startcol+1,endrow-1,endcol-1,REV_VID); 
sprintf (text, "TOW REPORT"); 
write header (startrow, startcol, endcol,text, REV VID); 


start = (endcol-startcol-strlen(menu[0]))/2 * startcol; 
choicespopup (menu, "123",3, startrowt6, start-2, NONE, REV VID,0); 


if (choice==0) /* send report to printer */ 
prntz1; 
else if (choice==]) /* send report to file only */ 
prnt=0; 
else if (choice==2 || choice<0) /* QUIT or escape key pressed */ 
{ 
cursor off(); 
get options (4); 
return; 


/* open input and output files */ 
imn=fopen ("report .in", "r"); 
out=fopen ("report.out", "w"); 


/* check for null pointer */ 
if (!out) 
( 
sprintf(textl1,"Can't open file REPORT.OUT!"); 
sprintf (text2,"==> exit, see if hard disk is full <=="); 
display error (ERROR, text1,text2); 
fclose(in); 
cursor off(); 
get options(4); 
return; 


/* print status message */ 
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sezintf(text,". . „ Writing Report .. ."); 

start = (endcol-startcol-strlen(text))/2 + startcol; 
write_string(startrow+8,start,text,REV VID); 

sprintf (text, "Please Wait"); E 

start = (endcol-startcol-strlen(text))/2 + startcol; 
write string(startrowtlO,start,text,BLINK REV VID); 


/* read messages */ 

for (i=0; i<9; i++) 

{ 
fgets(mssg(i],81,in); 
stripcr (mssg[i)); 


/* print report header */ 
foc (1=0; i<3; it+) 
{ 
fgets (inline, 81,in); 
Eprancr (out, "+s", inline) ; 
} 
gerintf (out,"\n"); 
EET nt f (out, "Vn"): 


f RC / 


/* print Section I Wi 
/zzkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


/* print header */ 
Lore. 1<2; i++) 
{ 
fgets (inline, 81,in); 
fprintf (out, "%s", inline); 
} 
fprintf (Süt, "\n")? 
fprinEf(out, "Nn"); 


/* print tug class */ 
fgets(inline,81,in); 
stripcr (inline); 
pad(inline, 1); 

strcat (inline, tug); 
fprintf (out, "s\n", inline) ; 
fprine(out, "in"); 


/* print hawser data */ 
fgets(inline,81,in); 
fpiintf (out, ss", inline): /* header */ 


fgets (inline, 81, in); 

stripcr (inline); 

pad (inline, 3); 

sprintf (text, "%6.2£ in",tug_ data[1}); 

strcat (inline, text); 

Gpranee(out, "ts\n", inline) ; /* diameter */ 
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fgets (inline, 81,in); 

stripcr (inline); 

pad(inline, 6); 

sprintf (text, "%6.0£ ft",tug data[2]); 

strcat (inline, text); 

fprintf (out, "%s\n", inline); /* scope */ 
fprintf (out, "\n"); 


/* print chain pendant data */ 
fgets (inline, 81,in); 
Borint rt (out, "+s", inline) ; /* header */ 


fgets (inline, 81,in); 

stripcr (inline) ; 

pad (inline, 7); 

sprintf (text, "%6.2f in",tug data(3]); 

strceat (inline, text); 

fprintf (out, "%s\n", inline) ; /* size */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 6); 

sprintf (text, "%6.0f ft",tug data[4]); 

strceat (inline, text) ; 

fprintf (out, "%s\n", inline) ; /* scope */ 
ferantf (out, “\n") ; 

Sorancf (out, "Na"); 


/ekkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
/* print Section II Vi 
N KR k / 
/*zkkkkkk/ 
if (type==0) /* SHIP */ 
( [RIERA 
/* print header */ 
for (10; i<2; itt) 
{ 
fgets (inline, 81,in); 
fprintf (out, "%s", inline); 
} 
fprintf(out," Win"); 
£printf (out, in"); 


/* print tow type */ 
fgets (inline, 81,in); 
fprintf£ (out, "ts", inline) ; 
HEL EL (ont, “n”: 


/* print input data */ 
fgets (inline, 81,in); 


fprintf (out, "ts", inline); /* header */ 


fgets (inline, 81,1in); 
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stripcr (inline); 

pad (inline, 1); 

strcat(inline,hull no); 

fprintf (out, "%s\n", inline) ; /* hull number */ 


fgets (inline, 81,in); 

striper (inline); 

pad (inline, 11); 

sprintf (text, "%6.0£ tons",tow data[0]); 

strcat(inline,text); 

fprintf (out, "%s\n", inline); /* £ull load displacement */ 


fgets (inline, 81,in); 

stripcr (inline) ; 

pad(inline, 23); 

sprintf(text,"$6.1f kts",tow data[1]); 
strcat(inline,text); 

EpriHtf(out," $sXn",inline); /* tow speed */ 


Poeus (inline, 81,1in) ; 

s€riper (inline); 

pad(inline,5); 

sprintf (text, "%6.1£ kts",tow data([2]); 
strcat(inline,text); 

fprintf (out, "%s\n", inline) ; /* max wind speed */ 


fgets (inline, 81,1in); 

stripcr (inline); 

pad (inline, 9); 

sprintf (text, "%6.1f deg",tow_data[3]); 
strcat(inline,text); 


fprintf(out,"$sWMn", inline); /* rel wind direction */ 


fgets (inline,81,in); 

stripcr (inline); 

pad (inline, 14); 

if (tow data(4]==0.0) 
sprintf (text, "Locked"); 

else if (tow _data[4]==1.0) 
sprintf (tęxt, "Trailing"); 

else if (tow data[4]==2.0) 
sprintf (text, Removed"); 

strcat (inline,text); 

fprintf (out, "%s\n", inline); /* propeller status */ 

fprintfiout, "\n"); 


/* print Table G-2 data */ 
fgets (inline, 81,in); 
fprintf (out, "$s", inline); /* header */ 


fgets (inline, 81,in); 
striper (inline); 
pad(inline,1); 

strceat (inline, class); 
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fprintf (out, "%s\n", inline); /* 'Ship cs. */ 


tgets(inline,81,in); 

stripcr (inline); 

pad (inline, 10): 

sprintf (text, "%6.0f£ tons", ship data(0]); 
strcat(inline,text); 

fprintf(out,"$sWMn",inline); /* displacement */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline,20); 

sprintf (text, "%6.0f sq ft", ship data[1]); 
strceat (inline, text) ; 


fprintf (out, "%s\n", inline) ; /* frontal area */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 16); 

sprintf (text, "%6.2f",ship data(2]); 
strcat(inline,text); 


fprintf (out, "%s\n", inline) ; /* wind coefficient */ 


fgets (inline, 81,in); 

striper (inline); 

pad (inline, 18); 

sprintf (text, "%6.0f sq £t",ship data(3]); 
strcat(inline,text); 

fprintf(out,"$sWMn",inline); /* propeller area */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad(inline, 11); 

sprintf (text, "%6.0f", ship data([4]); 

strcat(inline,text); 

fprintf (out, "$s\n", inline); /* hull resistance curve */ 


fgets (inline, 81,in); 

striper (inline); 

pad(inline,11); 

sprintf (text,"*%6.0£",ship data(5]); 

strcat(inline,text); 

fprintf (out, "%s\n", inline); /* wave resistance curve */ 
fbprxuntf(out," Win"); 

fpmidt&(out,"Nn"); 


/* read and discard remaining Section II data */ 
for (iz0; i«46; i++) 
fgets(inline,81,in); 


[A kkkkkkikkikk]/ 


else if (type==1) /* DRYDOCK */ 


{ [hk xx xx / 


/* read and discard Section II data for type SHIP */ 
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for (i270; 1<18; i++) 
Egets (inline, 81, in); 


/* print header */ 
for (i=0; i<2; i++) 
{ 
fgets (inline, 81,in); 
fprintf(out, "%s",inline); 
) 
fprintf (out, "\n")?; 
BPpsIntf(out, An"); 


/* print tow type */ 
fgets (inline, 81,in); 
fprintf(out,"$s",inline); 
sfprant£f (out, "Nn"); 


/* print input data */ 
fgets(inline,81,in); 
fprintf (out, "%s", inline); ZA 


fgets (inline, 81,in); 

stripcr (inline) ; 

pad(inline, 1); 

strcat(inline,hull no); 

fprintf (out, "%s\n", inline); /* 


fgets(inline,81,in); 

stripcr (inline); 

pad (inline,18); 
sprintf(text,"*6.1f",tow data[4]); 
strcat(inline,text); 

fprintf (out, "%sNn",inline); ON 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 23); 

sprintf (text, "%6.1f£ kts",tow _data(1]); 
streat (inline, text) ; 

fprintf (out, "%s\n", inline); S 


fgets (inline, 81,in); 

Stripcr (inline) ; 

pad (inline, 5); 

sprintf (text, "%6.1f kts",tow data([2]); 
strcat (inline, text); 

fprint£f (out, "%s\n", inline) ; 8; 


fgets (inline, 81,in); 

stripcr (inline) ; 

pad(inline, 9); 

sprintf (text, "%6.1f£f deg", tow data[3]); 
streat (inline, text); 

fprintf (out, "%s\n", inline); LE, 
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header */ 


hull number */ 


hull condition */ 


tow speed */ 


wind speed */ 


wind direction */ 





Epaant fefeutye" \n") 7 


/* print estimated displacement */ 
fgets (inline, 81,in); 

stripcr (inline); 

pad(inline, 13); 

sprintf (text, '$6.0f tons",tow data[0]); 
strcat(inline,text); 
fprintf (out, "$s\n", inline) ; 

ipEdlmteć (out, "Nn")e 


/* print Table G-4 data */ 
fgets(inline,81,in); 
fprintf (out, "ts", inline); /* header */ 


fgets (inline, 81,in); 

striper (inline) ; 

pad (inline, 30); 

sprintf (text, "%6.2£", dock data[1]); 

strceat (inline, text) ; 

fprintf (out, "%s\n", inline) ; VINE], 


fgets(inline,81,in); 

stripcr (inline); 

pad (inline, 30); 

sprintf (text, "%6.2£", dock _data[2)); 

streat (inline,text) ; 

fprintf (out, "%s\n", inline) ; EE E 


fgets (inline, 81,in); 

stripcr (inline); 

pad(inline, 30); 

sprintf (text, "%6.2£", dock data([3)); 

strceat (inline, text) ; 

fprintf (out, "s\n", inline) ; [£3 7 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 13); 

sprintf (text, "%6.0f sq ft",dock data[4]); 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline); /* wetted surface area */ 


/* print cross sectional areas */ 
fgets (inline, 81,in); 
fprintt (out, "te", inline) 7 /* header */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 15); 

sprintf (text, "%6.0f sq ft",dock data([5]); 
strcat(inline,text); 

fprintf (out, "%s\n", inline) ; /* below waterline */ 
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fgets (inline, 81, in); 

striper (inline); 

pad(inline, 15); 

sprintf(text,"$6.0f",dock data[6]); 

strcat(inline,text); 

£printf (out, "%a\n", inline); /" above waterline */ 
Pernt? (out, "\n"); 

erat? (out, X^"); 


/* read and discard remaining Section II data */ 
for (i=0; 1<28; i++) 
fgets(inline,B1,in); 


IA 


else if (type=-=2) /* BARGE */ 


{ 


[annem 
/* read and discard Section II data for type SHIP, DRYDOCK */ 
for (£90; 1436; it*) 
fgets(inline,81,in); 


/* print header */ 

for (260; 1<2; it) 

( 
fgets (inline, 81,in); 
fprintf (out, "ta", inline); 

) 

fprintf (out, "Nh") ; 

forint? (out, "\n"); 


/* print tow type */ 
fgets(inline,81,in); 
fprintf (out, "ży", Inlins); 
fpsintf (out , "Nn"); 


/* print input data */ 
fgets (inline, 81,in); 
fprintf(out, "48", inline); /* header */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad(inline, 1); 

strcat(inline,hull no); 

fprintf (out, "ta\n", inline) ; /* hull number */ 


/* print hull dimensions */ 
fgets(inline,81,in); 
fprintf(out,"*a",inline); /* header */ 


fgets (inline, 81,in); 

striper (inline); 

pad(inline, 24); 

sprintf (text, '46.1f ft",barge data(0]); 
strcat(inline,text); 

fprintf (out, "żaln',inline); /* length */ 
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Egets (inline, 81, in); 

Striper (inline) ; 

pad (inline, 26); 

sprintf (text, "%6.1f£ ft",barge data[1]); 
strcat(inline,text); 

fprintf (out, "%s3s\n", inline); /* beam */ 


fgets (inline, 81, in); 

Beriper (inline); 

pad (inline, 25); 

sprintf (text, "%6.1f ft",barge data[2]); 
strcat(inline,text); 

fprintf (out, "%s\n", inline); /* depth */ 


fgets (inline, 81,in); 

Striper (inline) ; 

pad (inline, 25); 

sprintf(text,"$*6.1f ft",barge data[3]); 
strcat(inline,text); 

fprintf (out, "*sin", inline); /* draft */ 


/* print deckhouse dimensions */ 
Egets(inline,8l,in); 
Epoinet (out, "ts", inline) ; /* header */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 24); 

sprintf(text,"$6.1f ft",barge data[4]); 
strcat(inline,text); 

fprintf (out, "%s\n", inline); /* length */ 


fgets(inline,81,in); 

stripcr (inline); 

pad(inline, 25); 

sprintf (text, "%6.1f ft",barge data[5]); 

strceat (inline, text); 

fprintf (out, "%s\n", inline) ; /* width */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad(inline, 24); 

sprintf (text, "%6.1f£ ft", barge data[6]); 

strceat (inline, text) ; 

Eprints (out, "%s\n", inline); /* height */ 


fgets (inline, 81,1in); 

stripcr (inline); 

pad(inline, 16); 

Jf (barge data[7)220.0) 
sprintf (text, "Rake ended"); 

else if (barge data[7)==1.0) 
sprintf (text, "Ship ended"); 
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else if (barge data[7)==2.0) 

sprintf (text, "Square ended") ; 
strcat(inline,text); 
fprintf (out, "%s\n", inline) ; /* end shape */ 


fgets (inline, 81,in); 

Striper (inline) ; 

pad(inline, 18); 

sprintf (text, "%6.1f£", tow data[4]); 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ; /* hull condition */ 


fgets (inline, 81, in); 

stripcr (inline); 

pad(inline,23); 

sprintf (text, "%6.1f kts",tow data[1]); 
strcat(inline,text); 

fprintf (out, "%s\n", inline) ; /* tow speed */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 5); 

sprintf (text, "%6.1£ kts",tow data[2)); 

strcat (inline, text); 

fprintf (out, "%s\n", inline) ; /* wind speed */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad(inline,9); 

sprintf (text, "%6.1f deg'",tow_data[3]); 

strcat (inline, text); 

sprintf(out,"żsin",inline); /* wind direction */ 
Sprint£f(cue,"Nn"); 


/* print estimated displacement */ 
fgets(inline,81,in); 

stripcr (inline); 

pad(inline,13); 

sprintf (text, "%6.0f tons",tow data[0]); 
strcat(inline,text); 
fprint£ (out, "%s\n", inline) ; 
fórintf(eut, "Nn"); 


/* print data corresponding to Table G-4 */ 
fgets(inline,81,in); 
fprintf (out, "%s", inline); /* header */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad(inline, 30); 

sprintf (text, "%6.2f",barge res[0)); 
strcat(inline,text); 

fprintf (out, "%s\n", inline) ; a 
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fgets (inline, 8l,in); 

stripcr (inline); 

pad (inline,30); 

sprintf(text,"$6.2f",barge res[1)); 
strcat(inline,text); 

fprintf (out, "%s\n", inline); /[* £2 */ 


fgets (inline, 81,in); 

stripcer (inline) ; 

pad (inline, 30); 

sprintf (text, "%6.2f",barge res[2)); 

streat (inline, text); 

fprintf (out, "%s\n", inline); /* £3 */ 


foaets (inline; 81,1in); 

stripcr (inline); 

pad(inline,13); 

sprintf (text, "%6.0f sq ft",barge res[3]); 
strcat(inline,text); 

BEprintf(out," *sXn",inline); /* wetted surface area */ 


/* print cross sectional areas */ 
fgets(inline,81,in); 
fprintf(out,"$*s",inline); /* header */ 


fgets(inline,81,in); 

stripcr (inline); 

pad(inline,15); 

sprintf (text, "%6.0f są ft",barge_res[4)); 
strcat(inline,text); 

fprintf (out, "%s\n", inline); /* below waterline */ 


fgets (inline, 81,in); 
striper (inline) ; 
pad(inline, 15); 
sprintf (text, "%6.0£",barge_res[5)); 
strcat (inline,text); 
iprincf(eut, *sAn',inline); /* above waterline */ 
Eprintf(out,""Xn"); 
£psuntf (Out. " Nn") ; 
) 
EENS E (out, Nf"); /* form feed */ 


f Che / 


Ke print Section III * / 


ff CC / 


/* print header */ 
gor (120; 1<2; i++) 
{ 
fgets (inline, 81,in); 
fprintf (out, "$s", inline) ; 
) 
fpeuntf(out," Xn"); 
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fprintf (out, "ln"); 


/* print tow type */ 
fgets(inline,81,in); 
striper (inline); 
pad (inline,7); 
if (type==0) 

sprintf(text, "SHIP"); 
else if (type==1) 

sprintf (text, "DRYDOCK") ; 
else if (type==2) 

sprintf (text, "BARGE") ; 
strcat (inline, text) ; 
fprintf (out, "s\n", inline) ; /* tow type */ 
fprintf (out, "Nn"); 


/* print data */ 

fgets (inline, 8l,in); 

striper (inline) ; 

pad (inline, 13); 

"Errntf(text, *$8.0f lbs",resist dat[0]); 
strcat(inline,text); 


SBrintf (out, "$%sin",inline); /* wind resistance */ 


fgets(inline,81,in); 

stripcr (inline); 

pad(inline, 7); 

sprintf (text, "%6.1f ft",resist dat[1]); 
strcat(inline,text); 

fprintf (out, "%s\n", inline) ; /* wave height */ 


fgets (inline, 81, in); 

stripcer (inline); 

pad(inline, 13); 

sprintf (text, "%8.0f lbs", resist dat(2]); 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline); /* wave resistance */ 


fgets (inline, 81, in); 

stripcr (inline); 

pad(inline, 13); 

sprintf (text, "%8.0f lbs", resist dat(3]); 

streat (inline, text) ; 

fprintf (out, "%s\n", inline); /* hull resistance */ 


fgets (inline, 81,in); 

striper (inline); 

pad (inline, 8); 

sprintf (text, "%8.0f lbs", resist_dat[4]); 

strcat(inline,text); 

fprintf (out, "%s\n", inline); /* propeller resistance */ 


fgets (inline, 81,in); 
Eprintf (out, "%s", inline); 
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tow reseresist dat(0]; 
for (i=2; i<5; i++) 
tow res += resist dat [i]; 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 8); 

sprintf (text, "%8.0£ lbs",tow res); 

strcat(inline,text); 

fprintf (out, "%s\n", inline) ; /* total tow resistance */ 
Sprintf (out, '"Nn"); 


hawser resist (tug data,tow_data[1l],tow res, &haw res) ; 

fgets (inline, 81,in); 

Seripcr (inline) ; 

pad (inline, 16); 

sprintf (text, "%8.0f lbs",haw_res); 

strcat(inline,text); 

fprintf (out, "%s\n", inline); /* hawser resistance */ 
FEE HET (out," n"): 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 13); 

Sprintf (text, "%8.0f lbs",tow_resthaw res) ; 
strcat(inline,text); 

sprintf(text," or $6.2f kips",(tow resthaw res)/1000.0); 
strcat(inline,text); 

Gorauntc (our, "ts\n", inline) ; /* mean towline tension */ 
PMgeintt (out, "\n") > 

SDrintf (out,"Nn"): 


/ękkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


13 print Section IV Wi 
[ROI e e de de e e e e e e ke e e e e de e ee e je e e e e e je hee kekek f 


/* print header */ 

for (i=0; i<2; i++) 

{ 
fgets (inline, 81,in); 
Pprince (out, "ts", inline) ; 

} 

BbriHtf(out, in"); 

fprintf (out, "\n")? 


print Big, tow */ 

fgets (inline, 81,1n); 

stripcr (inline); 

pad (inline, 1); 

strcat (inline, tug) ; 

fprinere (out, "te\n", inline) ; E EE 
fgets (inline, 81,in); 

stripcr (inline); 
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pódl(anline;h1) ; 

strcat(inline,hull_no); 

Sprinci (out, "%sNn",inline); /* tow */ 
fprintf(out, "\n"); 


/* print datä */ 

£gets(inline,81,in); 

stripcr (inline); 

pad(inline, 14); 

sprintf (text, "%8.1£f kts",tug eval[0]); 
strcat(inline,text); 


fprintf (out, "%s\n", inline); /* desired tow speed */ 


fgets (inline, 81, in); 

sťripcr (inline); 

pad (inline, 5); 

sprintf (text, "%8.0f lbs",tug eval[1]); 
strcat(inline,text); 


fprintf (out, "%s\n", inline); /* mean tension */ 


fgets (inline, 81, in); 

stripcr (inline); 

sprintf (text, "%8.0f lbs",tug eval(2]); 

strcat(inline,text); 

fprintf (out, "%s\n", inline}; /* available tension */ 
meines out, An"); 


/* print message */ 
if (tug eval[2]»-tug eval[1]) /* tug has sufficient pull */ 
fprintf (out, "%s\n",mssg[(1)); 
else if (tug eval[2]«tug eval([l]) /* tug has insufficient pull */ 
{ 
fprintf (out, "%sin",mssg[0]); 
fprintf (out, "%sin",mssg([(2]); 
) 
iprinet(out, "\n") ; 


/* print remaining data */ 

fgets (inline, 81,in); 

striper (inline) ; 

pad (inline, 8); 

sprintf (text, "%8.1f kts",tug eval(3)); 

strcat (inline, text) ; 

fprintf (out, "s\n", inline); /* best possible tow speed */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 5); 

sprintf (text, "%8.0f lbs",tug_eval[(4]); 

strcat (inline, text) ; 

Epraner (cut, “ts\n", inline); /* mean tension */ 


fgets (inline, 81,in); 
stripcr (inline); 


308 


sprintf (text, "%8.0f lbs",tug eval(5)); 

strcat(inline,text); 

fprintf (out, "SAn", inline); /* available tension */ 
Gomant E (out Mn") : 


fgets (inline, 81, in); 


fprintf (out, "3s" inline); 


fgets (inline,81, in); 
stripcr (inline); 
if (tug eval[6]221.0) 
sprintf (text,"%5.1f£ kts (ORIGINAL)", tug eval[0]); 
if (tug eval[6]-2-0.0) 
sprintf (text, "'%5.1f kts (BEST POSSIBLE)",tug eval[3)); 
strcat(inline,text); 


fprintf (out, "%s\n", inline); /* selected tow speed */ 
Gonantf (out, "\n"),; 
Borankf (out, Xf"); /* form feed */ 


Jf KORR oe kc ok eoe N NNN NXN NNN XN NX XN XX XN NX XN NXN NXN NX XXX / 


de print Section V x / 
f ROCCO e e oe ee e e e e e e ce c e e e e e RAR AAA AAA A 


/* print header */ 

for (i=0; i<2; i++) 

( 
fgets(inline,81,in); 
fprintf (cout, "s", inline); 

} 

Fprintf (out, "\n"); 

£printf (out, "\n"); 


/* print tug, tow */ 

fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 1); 

strcat(inline,tug); 

fprintf (out, "%s\n", inline) ; /* tug T/ 
fgets (inline, 81,in); 

striper (inline); 

pad (inline, 1); 

strcat(inline,hull no); 

fprintf (out, "%s\n", inline); /* tow */ 
fprintfWeut,"in"); 


/* print tabulated data */ 
fgets(inline,81,in); 
fpeintft (out, "ts", inline) ; /* header */ 


fgets (inline, 81,in); 
stripcr (inline); 
pad(inline,1); 

iz(int)ext data[0]; 
strcat(inline,tabtow(i])); 
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BET iet (out "s\n", inline); /* tabulated tow */ 


fgets (inline, 81,in); 

stripcr (inline); 

pad (inline, 15); 

sprintf (text, "%6.0f£ tons",ext data(1]); 

strcat(inline,text); 

fprintf (out, "%s\n", inline); /* tabulated displacement */ 


fgets (inline, 81,in); 

striper (inline) ; 

pad (inline, 18); 

SPEINCE(Cext, '%6.0£ kts",ext_data[2]); 

strcat(inline,text); 

fprintf (out, "%s\n", inline); /* tabulated tow speed */ 


fgets (inline, 81,in); 

striper (inline) ; 

pad(inline,17); 

speimcur (text, "%6.0f kts",ext data([3]); 

strcat (inline, text); 

fprintf (out, "s\n", inline) ; /* tabulated wind speed */ 


fgets (inline, 81,in); 

Seripcr (inline) ; 

pad(inline, 13); 

sprintf (text, "'%6.0f deg',ext data[4]); 

strcat(inline,text); 

fprintf (out, "%s\n", inline); /* tabulated wind direction */ 


fgets (inline,81,in); 

stripcr (inline); 

pad (inline, 15); 

sprintf (text, "%6.0f ft",ext_data[5])); 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ; /* tabulated hawser scope */ 


fgets (inline, 81,in); 

Terintf(out, "ts" ,inline); 

fgets (inline, 81,in); 

Striper (inline) ; 

pad(inline, 10); 

sprintf (text, "%6.0f£",ext data([6]); 
strcat(inline,text); 

fprintf (out, "%s\n", inline); /* curve number */ 
Eprintf(out, Xn"); 


/* print results */ 
fgets(inline,81,in); 
fprintf (out, "%s", inline) ; /* header */ 


fgets (inline, 81,in); 


scriper (inline) ; 
pad(inline,15); 
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if (ext _data[(9]==0) 
sprintf(text,"$6.2f kips (ESTIMATED)",ext data[7]); 
else if (ext_data[9]==1) B 
sprintf(text,"$6.2f kips (ACTUAL)",ext data[7]); 
strcat(inline,text); 


fprintf (out, "%s\n", inline) ; /* mean tension */ 


fgets (inline, 81,in); 

striper (inline); 

pad (inline, 12); 

sprintf (text, "%6.2£ kips",ext data[8]-ext data[7]); 
streat (inline, text); 


fprintf(out, "%s\n", inline); /* dynamic tension */ 


fgets (inline, 81,in); 

striper (inline): 

pad(inline,12); 

sprintf(text,"$6.2f kips",ext data[8]); 
strcat(inline,text); 

fprintf (out, "%s\n", inline); /* extreme tension */ 
fprintf (out, "\nt),; 


/* print warnings, if applicable */ 

if (ext_data[7]>100.0) 

{ 
fprintf (out,"$s",mssg(0]); 
fprintf (out,"$s",mssg(3]); 
fprintf (out,"$s",mssg[5]); 
fprintf (out, "%s",mssg[6]); 
Sprintf(out, "An"); 

) 

if (ext _data[(8]>400.0) 

( 
fprintf (out, "$%s'",mssg[0]); 
fprintf (out, '"%s",mssg[4]); 
fprintf (out, "%s",mssg[5]); 
fprintf (out, "%s",mssg[6]); 
fprintf (cut, tàn"); 


/* print note regarding basis for speed, length variations */ 
for (i=0; i<2; itt) 
{ 
fgets (inline, 81, in); 
fprintf (out, "%s", inline); 
) 
fpmüntf(out, An"); 


/* print speed variation data */ 

fgets (inline, 81,in); 

fprintf (out, "ts", inline) ; /* header */ 
fgets (inline, 81,1n); 


striper (inline) ; 


p 


pad(inline, 7); 

sprintf (text, "410.1£f%10.1f%10.1f",spd_data[0] [0],spd_data[1][0], 
spd data[2] [0)); 

strcat(inline,text); 

fprintf (out, "%s\n", inline) ; /* tow speed */ 

fprintf (out, "\n")? 


fgets(inline,81,in); 

stripcr (inline); 

pad(inline, 10); 

sprintf (text, "*10.0£%10.0£f%10.0£",spd data[0] [1],spd _data(1] (1), 
spd data[2] [1]); 

strcat(inline,text); 

fprintf (out, "%s\n", inline) ; /* curve number */ 

Borintf (out, 'in'); 


fgets(inline,81,in); 

stripcr (inline); 

pad (inline, 3); 

sprintf (text,"$10.1f*10.1f*10.1f",spd data[0](2], spd data[1] [2], 
spd data[2] [2]); 

strcat(inline,text); 

fprintf (out, "%s\n", inline) ; /* mean tension */ 


fgets (inline, 81,in); 

s6riper (inline); 

xl=spd_data([(0] [3]-spd_data[0] [2]; 

x2-spd data[1][3]-spd data[1] [2]; 

x3espd data[2][3]-spd data[2] [2]; 

spGinEf (text, "%10.15%10.1£%10.1£f" ,xl,x2,x3); 
strcat(inline,text); 

fprintf (out, "%s\n", inline); /* dynamic tension */ 


fgets (inline, 81,in); 

$£riper (inline); 

sprintf (text, "410.1£%10.1£%10.1£",spd_ data[0] (3), spd_data[1) [3], 
spd data[2] [3]); 

strcat(inline,text); 

fprintf (out, "%s\n", inline) ; /* extreme tension */ 

DPrintf'(ont," Nin"); 

SSE inEf (out, "Nn") ; 


/* print length variation data */ 
fgets(inline,81,in); 
fprintf (out, "%3", inline); /* header */ 


fgets (inline, 81,in); 

striper (inline) ; 

pad(inline, 5); 

sprintf(text,"$10.0f9$10.0f$10.0f",lgth data[0][0],1gth data[1][0], 
lgth data[2][0]); 

strcat(inline,text); 

fprintf (out, "%s\n", inline); /* tow speed */ 

formate (out pin") ; 
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fgets (inline, 8l,in); 

stripcr (inline) ; 

pad(inline,10); 

sprintf (text, "%10.0£%10.0£%10.0£", lgth data[0)[1)],lgth data[1][1], 
lgth_data(2](1)); 

strcat(inline,text); 

fprintf (out, "%s\n", inline); /* curve number */ 

Eprumef (out, Wn"); 


fgets(inline,81,in); 

stripcr (inline); 

pad (inline, 3); 

sprintf(text,"$10.1f*$10.1f*$10.1f",lgth data[0][2),lgth data[1)[2], 
lgth_data[2)(2)); 

strcat(inline,text); 

fprintf (out, "%s\n", inline) ; /* mean tension */ 


fgets (inline, 81,in); 

stripcr (inline); 

xl=lgth_data(0] (3]-1gth_data[0] [2]; 

x2-lgth data[1][3]-1gth data(1](2]; 

x3=lgth_data[2) (3)-lgth_data([2) (2); 

sprincEf (text, "$10.1£%10.1£%10.1£", x1, x2, x3); 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ; /* dynamic tension */ 


fgets(inline,81,in); 

stripcr(inline); 

sprintf (text,"*10.1f$10.1f$10.1f",lgth data[0][3],lgth data[(1)(3), 
lgth data[2)[3]); 

strcat (inline, text); 

Eprints (out, "%s\n", inline) ; /* extreme tension */ 

Eprintf (out, "N£"); /* form feed */ 


fclose(in); 
fclose(out); 


/* send report file to printer */ 

if (prnt) 

{ 
/* prompt user to check printer before proceeding */ 
sprintf (textl, "Ensure printer is on line"); 
sprintf(text2,"and ready to go"); 
display error(WARN,textl,text2); 
cursor off(); 


/* print status message */ 

sprint£f (Gee, ". . . Printing Réport .. ."); 

start = (endcol-startcol-strlen(text))/2 + startcol; 
write string(startrow+8,start,text, REV VID); 

sprintf (text, "Please Wait"); 

start = (endcol-startcol-strlen(text))/2 + startcol; 
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write string(startrow-*10,start,text,BLINK REV VID); 


ZUprIint report */ 
print rep(); 
} 


clear (startrow+1,startcol+1,endrow-1,endcol-1); 
return; 


print_rep() 

{ 
FILE *in; 
char str[81); 


inzfopen("report.out","r"); 


while ( !feof(in) ) 
( 
if (fgets(str,81,in)) 
Prints (Str); 


prints (s) 
char *s; 
{ 
while (*s) bdos(0x5,*s++,0)*; 
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Filė: plt.c 

Author: J. H. Milgram 
Edited: Todd J. Peltzer 
Last update: 30 April 1989 


This file contains plotting functions written for the ATHENA lab 
computer, using Halo 88 functions. Modified to work with TOWCALC. 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
#include "stdio.h" 

#include "plthead.h" 

#include "string.h" 


setplt() 


( 


FILE *fp; 
int status,nbr,n; 
char chl, ch2, gdevice([13],inline(81]; 


fp  fopen("device.dat","r"); 
nzfscanf(fp,"$sWMn",gdevice); /* read device driver from file */ 
n=fscanf (fp, "%d\n", &mode) ; /* read graphics mode from file */ 


fclose(fp); 
setdev( gdevice ); 
scxx - 8.28; 

scyy = 5.52; 
enule= ’\0! ; 

knumx = 0; 

knumy = 0; 


xO = 0.13; 
yOp = 0.10; 
xl = 0.80; 
yl = 0.87; 


locate (xOi,yOi,xli,yli) 
DIOREU*xOi1,*yOi,*xli,*yli: 


( 


xO = *x0i / sexx; 
y0p = *y0i / scyy; 
sc Es dd / ser; 
yl = *yli / scyy;:; 


line3 (npts, x,y) 


short *npts; 
float x[], yi) ; 


{ 


short npt? 

float xml, yml; 

xml = x{0); 

yml = y[0]; 

movabs( &xml, &yml); 
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npt *npte - 1; 
polylnabs( x, y, &npt ); 


xyaxis (xmn, xmx, xtc, ymn, ymx, ytc, xf, yf, kod) 
float pani, “mx, *xtc, *ymn, *ymx, *ytc, *xf, *y£; 
short *kod; 


{ 


float xdel, ydel, xsmall, ysmall, xbig, ybig, xmnp, ymnp, xmxp, ymxp, zero; 
short ione, izr, kode, i, mn, mm, ml, m2; 
short format = 1, height = 1, page = 1, screen = 1, width = 1; 


ione = l; 


izr = 0; 

xdel = *xmx - *xmn; 

ydel = *ymx - *ymn; 

xsmall = *xmn - (x0 / xl) * xdel; 


xbig =e *xmx + ((1.0 - xO - xl) / xl) * xdel; 
ysmall = *ymn - (y0p / yl) * ydel; 
ybig = *ymx + ((1.0 - yOp - yl) / yl) * ydel; 
xrange = xdel / xl; 
yrange = ydel / yl; 
initgraphics( ¿mode ); 
setieee( &format ); 
display( &page ); 
setscreen( &screen ); 
setworld( &xsmall, &ysmall, &xbig, &ybig ); 
inqdrange( &npx, &npy ); 
nfax = npx / scxx; 
nfay = npy / scyy; 
xmnp = *xmn; 
xmxp = *xmx; 
ymnp = *ymn; 
ymxp = *ymx; 
mapwtod( &xmnp, &ymnp, &ixO, &iyO); 
mapwtod( &xmxp, &ymxp, &ixl, &iyl); 
ptabs( &xmnp, £ymp ); 
inqclr( &xmnp, &ymnp, &icf ); 
inqbknd( &icb ); 
setcolor( &icb ); 
ptabs( &xmnp, &ymnp ); 
setcolor( &icf ); 
inittcur( &height, &width, &icb ); 
EOUX mO.011 * (*xmx = *xmn); 
taly 0.015 * (*ymx - *ymn); 
kode - *kod; 
xtuicges *xtc; 
tie w f*vto; 
if (kode >= 10) 
goto casel; 
movabs( &xmnp, &ymxp ); 
lnabs( &xmnp, &ymnp ); 
lnabs( &xmxp, &ymnp ); 
if (kode z- 1) 
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goto 
lnabs ( 
lnabs ( 
casel: 
nyy = 
if (kode 

kode 
xmin = 


casel; 
&xmxp, &ymxp ); 
&xmnp, &ymxp ); 
nxx - (1.0001 * 


>= 10) 


xmax = 
ymin = 


yff AUE: 
for ( i = 1; i <= nxx; 
(“se + (1 - 
fon ( i= 1; i <= nyy; 
yty(i] = (*yf + (i - 
if ( kode == 3 ) 
goto case2; 


xtx(i) 


for ( i = 1; i <= nxx; 


( 


xtl(i] suma - tely; 
if ((kode == 2) || 
xtu [i] *ymn 4 tcly; 


goto case02; 


(1.0001 * (*ymx - *yf)) 


(kode 


(Xm RES / ste IE 
/mvtic. TU 


i++ ) 
1) * xtic); 
i++) 


1) * ytic); 


i++ ) 


4)) 


goto case01; 


case01:  xtu[i) = *ymn; 
case02: ; 

) 

for ( i = 1; i <= nyy; i++ ) 


{ 
ELI] AS. “aan - tels; 
if ((kode == 2) || 
ytu(i] = *xmn; 
else 


(kode 


== 4)) 


ytu(i] = *xm + tclx; 


} 
goto case3; 


case2: 


{ 


for Le 


xti) = *ymn; 
xtu(i) = *ymx; 
) 


for ( 


( 


i = 1; i <= nyy? 
ytl(i) = *xmn; 
ytu(i] = *xmx; 

} 

case3: 
if (*yf >= ymax) 

mm = nyy / 2 + 1; 

for ( 


( 


i=l; i <= mm; 


Mire nyy - 2 * (i -1) 


i <= nxx; 


i++ ) 


i++ ) 


goto case5; 


i++) 


e 
# 
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RE (ml < 1) 


goto case4; 


drawu( &ytl[m1], &yty([m1], &ytulml]), &yty[ml]) ); 
m2 = ml - 1; 
if ( m2 < 1) goto case4; 
drawu( &ytu[m2], &yty([m2], &yti[m2], &yty[m2] ); 
case4: ; 
) 
case5: if (*xf > xmax) goto case7; 
mn = nxx / 2 + 1; 
for ( i = 1; i <= mn; itt ) 
{ 
ml = 1 + 2 * (i - 1): 
if (ml > nxx) goto case6; 
drawu( &xtx[m1], &xtl([m1], &xtx(ml], &xtu(ml] ); 
m2 = ml + 1; 
if( m2 > nxx) goto case6; 
drawu( &xtx[m2], &xtu[m2], &xtx[m2], &xtl[m2]); 


case6: ; 
) 
case?7: 
for (i= 1; i <= 


{ 


vent) eee *xmx = 


y3u[i] = *xmx; 
} 
for ( i = 1; i <= 
{ 

sal UIE *ymx - 

x3u[i] = *ymx; 


} 

if (*yf >= ymax) 
for ( i = 1; 
{ 


ml = 


i <= 


1-42 * (i 
if (ml > nyy) 
drawu ( 


m2 = ml + 1; 


if ((kode == ]) 


|| (kode == 3)) 
i++) 


goto casel2; 
nyy? 


telx; 


nxx; i++ ) 


tely; 


goto case9; 


mm; i++) 


= 1)7 


goto caseB; 
&y3l[m1], 


&yty[m1], &y3u(m1], &ytylml] ); 


if (m2 > nyy) goto case8; 


drawu( &y3u[m2], 


caseB: S 


) 


case9: 
for ( i = 1; i <= 
{ 

ml = nxx - 2 * 


if (ml < 1) 


drawu( &xtx[ml], 


m2 = ml = 1; 
if (M2 < 1) 


drawu( &xtx[m2], 


casel0: : 
} 


casell: if (kode 


if (*xf >= xmax) 


£yty [m2], sy3l[m2], &yty[m2] ); 


goto casell; 


mn; i++ ) 


(1-1); 
goto casel0; 


&x3l[ml), &xtx(ml), &x3u[ml] ); 
goto casel0; 

&x3u[m2), &xtx(m2), &x3l[m2] ); 

! 4) goto casel2; 
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zero = 0.0; 
drawu( &zero, &ymnp, &zero, &ymxp); 
drawu( &xmnp, &zero, &xmxp, &zero); 
casel2: ; 


drawu (xl, yl, x2, y2) 
Eat xl, *yl,*x2, *y2; 
{ 
float xxl,yyl,xx2,yy2; 
xxl = *xl; 
yyl = *yl; 
xx2 = *x2; 
yy2 = *y2; 
movabs (&xxl,&yyl); 
lnabs (&xx2, &yy2); 


label (itype, string) 
int *itype; 
char string[(81)] ; 
( 
char cdl, straux[81], cnull=NULL, *result; 
int h= 1, w= 1, hor = 0, ver = 1, str = 0; 
int n,nm ; 
float ywl,xlaby,xxn,yyn,xnl,ynl,xx,yy; 
cdl =’ ' ; 
strset(straux,cnull); 
if ( *itype != 1 && *itype != 2 ) goto casend; 
n = strlen(string); 
nm = n-1; 
if (string[nm] == cdl) 
{ 
strncpy (straux, string, nm) ; 
straux(nm] = cnull; 
n=nm ; 
} 
if (string(nm] != cdl) 
{ 
strncpy (straux, string,n); 
straux[n] = cnull ; 
} 
if (*itype == ]) 
{ 
el + 0.5 * ( x1 - 0.01 * (n + 2) ); 
yyn = 1.0 - yOp + 0.1; 
settext (&h, &w, &hor, &str); 
} 
else goto case3 ; 
goto case4 ; 
case3: xlaby = xmin - 0.070 * xrange ; 
ywl = 0.0 ; 
mapwton( &xlaby, &ywl, &xnl,&ynl ) ; 
Ium = 'xnl => 2. * 0.018 ; 
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as 1.0 - yop + 0.5 * ( 0.023 * n - yl ): 
settext(&h, &w, &ver, &str); 

case4: mapntow(&xxn, &yyn, 6xx, &yy); 
movtcurabs(&xx,&yy); 

btext (straux) ; 

casend: ; 


labely (x, y, string) 
Aa, *y ; 
char string(81) ; 


{ 


char cdl, straux(81),cnull=NULL, *result; 
int h = 1, w= 1, hor = O, ver = 1, str = 0; 
int n,nm ; 
float xl,yl; 
cdl =" '; 
strset(straux,cnull); 
n — strlen(string); 
nm = n-1; 
if (string[nm) == cdl) 
{ 
strncpy (straux, string, nm); 
straux(nm) = cnull; 
} 
if (string[nm) != cdl) 
{ 
strncpy (straux, string, n); 
straux[n) = cnull ; 
} 
settext (&h, &w, &hor, &str); 
xl = *x; 
yl = *y; 
movtcurabs(&xl,&yl); 
btext( straux ); 


endplt () 


{ 


closegraphics(); 


symplt (npts,x,y,nsym) 
int *npts, *nsym; 
float x(), yl)? 


{ 


float dx,dy,xx, yy, xxl, xxm, xxr, yyb, yym, yyt, dd, yyy, ddx; 
int sty = 1, i,nsymb,ncode,npnt; 

sethatchstyle (&sty) ; 

ncode = *nsym / 10; 

nsymb = *nsym - 10 * ncode; 

dx = 0.006 * xrange; 

dy = 0.008 * yrange; 

npnt = *npts - 1; 
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LOT JO ; 1 <* npnt ; ++i ) 


{ 


E 
yy-'yli); 

xxl - xx - dx; 
xxm - xx; 

XXI = xxt dx; 
yyb = yy - dy: 


yym = yy; 
yyt 7 yy * dy: 
if (nsymb !- 01 goto casel; 


movabs(&xxl,&yym); 

lnabs (&xxr,&yym); 

movabs (&xxm, &yyt) ; 

lnabs (&xxm, &yyb) ; 

casel: if (nsymb != 1) goto case2; 
movabs (&xxl, &yyb) ; 

lnabs (&xxr, &yyt); 

movabs (&xxl, &yyt) ; 

lnabs (&xxr, &yyb); 

case2: if (nsymb != 2) goto case3; 
movabs (&xxl, &yyb) ; 

lnabs (&xxr,&yyb); 

lnabs (&xxr,&yyt); 

lnabs (&xxl,&yyt); 

lnabs (&xxl,&yyb); 

if (ncode == 0) goto case3; 

movabs (&xx, &yy) ; 

flood (&ic£); 

case3: if (nsymb != 3) goto case4; 
movabs (&xxl, &yym) ; 

lnabs (&xxm, &yyb) ; 

lnabs (&xxr, &yym) ; 

lnabs (&xxm, &yyt); 

lnabs (&xxl,&yym); 

if (ncode == 0) goto case4 ; 

movabs (&xx, &yy) ; 

flood (&icf); 

case4: if (nsymb !- 4) goto case5; 
movabs (&xxm, &yyt) ; 

lnabs (&xxl, &yyb); 

lnabs (&xxr, &yyb) ; 

lnabs (&xxm, &yyt) ; 

if (ncode == 0) goto case5; 

movabs (&xx, &yy) ? 

flood (&icf); 

case5: if (nsymb != 5) goto case6; 
movabs (&xxr, &yyt) ? 

lnabs (&xxl, &yyb) ; 

lnabs (&xxr,&yyb); 

lnabs (&xxl,&yyt); 

lnabs (&xxr, &yyt); 

if (ncode == 0) goto case6; 

dd = 0.005 * yrange; 


Se 


yyy = yy + dd; 

movabs (&xx, &yyy); 

flood (&icf) ; 

yyy = yy - dd; 

movabs (&xx, &yyy) ; 

flood (&ic£) ;> 

case6: if (nsymb != 6) goto case7; 
movabs (&xx, &yy) ; 

ddx = 2.0 * dx; 

cir (&ddx) ; 

if (ncode == 0) goto case7; 
movabs (&xx, &yy) ; 

flood (&icf) : 

case?: ptabs (&xx,&yy); 


eraseu(xl,yl,x2,y2) 
croat kxl, *y1, *x2, *y2; 
{ 
fiom xO, Yo, xt, yt; 
xO = *x1; 
yo = *yl; 
xo ai. *x2; 
yt = *y2; 
setcolor( &icb ); 
movabs( &xo, &yo ); 
lnabs( &xt, &yt ); 
setcolor( &icf ); 


axnum (ntx,nty) 
Short *ntx , *nty ; 
( 
static char *cmft(] - 
In ", "45,0£f", "%5.1£", E EE ee 
"SAL ID ud 


static char *clft(] = 
(^ meter Or "X6. 1f", "X*6.2f", "X*6.3£f", 
"X6.4f', "Sda", "e 3d" 


sHort i, jx, jy, ival, ione = 1, izero - O ; 
float yy,xx , val ; 
char cv1(12] , cvs(12] ; 


ntix - *ntx 


e. ne. 


ntiy we *nty 
jx = 7 ; 
jy e 7 ; 
settext (&ione, &ione, &izero,&izero) ; 
if ( knumx -- 1 ) goto casel; 
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jk = 1 ; 


16 
SE 
af 
Tf 
ar 


ca 
jY 
if 
if 
if 
if 
if 
ca 


fo 
{ 


} 
fo 


{ 


( (xmax > 9999.5) || (xmin < -999.95) ) jx = 6 
( (xmax < 999.95) && (xmin > -99.95) ) jx 2 ; 


( (xmax < 99.995) && (xmin > -9.995) ) EES ; 
( (xmax < 9.9995) && (xmin > -0.9995) ) jx = 4 ; 
( (xmax « 0.99995) SE (xmin >= 0.000) ) jx=5 ; 
sel: if ( knumy == 1 ) goto case2; 
sd >; 
( (ymax > 9999.5) || (ymin < -999.95) ) jy = 6 ; 
( (ymax < 999.95) && (ymin > -99.95) ) jy = 2 ; 
( (ymax < 99.995) && (ymin > -9.995) ) jy = 3 E 
( (ymax < 9.9995) && (ymin > -0.9995) ) jy = 4 ; 
( (ymax < 0.99995) && (ymin >= 0.00) ) jy = 5 ; 
Ned: 7 
r (i= 1 ; i <= nxx ; i = i + ntix) 


yy = ymin - 0.045 * yrange ; 


xx = xtx[i] - 0.045 * xrange ; 
val = xff + (i-1.) * xtic ; 
ival = val ; 


if (jx >= 6) sprintf (cvl, GIfE|jx], Fvat) 7 
EIE < 6) „SBrinEf (cvl,clft(jx],val) ; 
movtcurabs (&xx, &yy) ; 

btext (cvl) ; 


r (i= 1 ; i <=» nyy ; i = 1 + ntiy ) 


xx= xmin - 0.070 * xrange ; 

yy= yty[i] - 0.013 * yrange ; 

va lmyff + (1-1) * ytic $ 

ival = val ; 

if (jy es 6) sprintf (cvs,cmft[jy), ival) ; 
if (jy < 6) sprintf(cvs,cmft[jy],val) ; 
movtcurabs(&xx,&yy) 7; 

btext (cvs) ; 


waitke() 


{ 


/* WAITING. ee */ 
/* LOOP UNTIL kbhit() REPORTS A KEYSTROKE...*/ 


while( !kbhit() ) ; 
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Ple: tlib.c 
Author: Todd J. Peltzer 
Last update: 30 April 1989 


This file combines the files iolibl.c, popup.c, and video.c 


Author: Norbert H. Doerry 
Edited: Todd J. Peltzer 
Last update: 30 April 1989 


This file contains a set of routines to augment the IO functions 
in the standard IO libraries. 


Note: this version of iolib combines NHD’s original iolib and ioliba 
files along with modifications and additions by TJP. 


emm GA Ge wig GEED END emm duży dul ig deg deg em dir geg em emm emm emm emm emm emm emm emm emm emm emm emm emm oe emm emm D emm ve emm emm emm emm emm emm emm emm emm emm emm emm emm emm emm emm GEED emm emm em emm emm emm emm om emm em emm emm emm emm emm emm emm emm emp emm emm 


Functions: 


stofa() : "string to floating array" 

stoda() : "string to double array" 

stoia() : "string to short integer array" 
parse() : parse a string into its elements 
suctolc() : "string upper case to lower case" 
slctouc() : "string lower case to upper case" 
strsplit() : "string split. 

strstrip() s< "string strip" 

stripcr () : "strip carriage return" 

bioskey () : emulates part of the Turbo C bioskey() function 
get key () : reads the 16-bit scan code of a key 


get_special() : returns the position code of arrow and function keys 
is_in() : tests if a character is in a given string 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
#include "stdio.h" 
#include "dos.h" 
#include "stdlib.h" 
#include "keydef.h" 
#include "video.h" 


int vmode; 
char far *vid mem; 


[RII KK IIH IK e e e e e e e e e e e e e e e e e e e e e e e e NXN NX NN XX XX XN XN XN XX XN XXX XXX XN XX X X XX X X 


stofa : "string to floating array" 

Norbert H. Doerry 

rev a 10 July 1988 

rev b 29 October 1988 (TJP): added fourth argument; deleted flags. 
rev c 30 October 1988 (TJP): added exponential notation. 


This function converts a string to an array of floating point numbers 


and passes back the array and the number of numbers successfully con- 
verted. The function returns zero if read successfully to the end of 
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the line, otherwise it returns the character at which failure occurred. 
The fourth argument passed to the function is the maximum number of 
elements in the array. 


Note: stofa does not convert with 100% accuracy; roundoff error causes 
some loss of significance beyond 5 or 6 decimal places. Use the 
function "stoda()" if more significant digits are required. 

Yee e e e e e e e e e e 2.2 2 2 2 2 2 2 2 2 2 2 2 2. 2.2.2. 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2. 2 2 e X e e e e e X N XN ÑN XX N e NN K N NX XX / 
stofa(string,fltaptr,nbrptr,maxnum) 

char string[]: 

Dlost fltaptr[]: 

int *nbrptr,maxnum; 

{ 

int sign; 

int index = 0; 

int expsign, exponent; 

float power; 

char ch; 

float inch; 

*nbrptre= 0; 


while ((ch=string(index++]) == ' ' || ch == '\t’) ; 
/* strip off leading blanks and tabs */ 


while (((ch >= '0' && ch <= '9') || ch == '.' || ch = '+' || ch == '-' 
|| ch == ',' || ch == ';' || ch == ':') && *nbrptr < maxnum) 


sign = 1; 
power = 10; 
if (ch == '-* || ch == '+') 
( 
if ( che '-—') 
sign = -1; 
else 
sign = 1; 
ch = string[index++); 
) 
fltaptri*nbrptr] = 0; /* Initialize value */ 
while (ch >= '0' && ch <= 197) 
( 
futaptrpenbrptr].- 10.0 * (f&E5apEr[*nbrptr]) t ch - 'O'; 
ch = string[indextt]; 
) 
if (ch == '.') /* Check for decimal point */ 
while ((ch = string[index++]) >= '0' 66 ch <= '9') 
{ 
flBAbtr[*nbrptr] = fltáptr[*nbrptr] + (ch = 'O') / power; 
power *- 10; 
) 
/* Check for exponential notation */ 
if (ch -- 'E' || ch == 'e') 
( 
expsign = 1; 
iu(o(eh = stringlindext+]) Sz '-' || ch sae '+') 
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if ( ch xx '-') 
expsign = -1; 
ch = string[index++); 
) 
exponent = 0; 
while (ch >= '0' 66 ch <= '9') 
{ 
exponent = 10.0 * (exponent) + ch - '0'; 
ch = string[index**]; 
) 
power = (expsign == -1) ? 0.1 : 10; 
while (exponent-- >=]) 
{ 
fltaptr [*nbrptr] *= power; 


} 
else if (ch mal '-') /* Check for "ft-in" entry */ 
( 
if ((ch = stringlindex++)) >= '0' && ch <='9') 
{ 
inch = ch - ‘0’; 
if (inch == 1 || inch == 0) 
if ((ch = stringlindex+t+)) == ‘0’ || ch == '1') 
inch = 10*inch + ch ~ *0'; 
else 
index--; 
power = 10; 
if ((ch = string[index++]) == '.') /* ft-decimal inch */ 
( 
while ((ch = string(index++]) >= '0' 66 ch <= '9') 
{ 
inch = inch + (ch - '0') / power; 
power *= 10; 


} 
else if (ch == '-') /* ft-inch-eighth */ 
{ 
if ((ch = string(indext++])) >= '0' 66 ch <= '7') 
{ 
inch += (ch - '0')/(8.0); 
if ((ch = string[index++]) == '.') 
while ((ch = string[index++)]) >= '0' 66 ch <= '9') 
{ 
inch += (ch - '0')/(8.0*power); 
power *= 10; 


} 
fltaptr(*nbrptr) += inch / 12.0; 
) 


fltaptr[*nbrptr] *- sign; 
(@mbeptr) ++; 
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SE eh —! || ch=E= 't*' || chew 8r | ch 99 '9' || ch 9e ' .') 


break; 
while (ch xs ' ' || ch zz 'Nt') 
ch = string(index++]; 
if (cha: || ch "27 || ohm. 
/* recognize these characters as delimiters */ 
while ((ch = string(index++]) == ' ' || ch == ’\t’) ; 
while (ch == ':' || ch =="; || ch == ',' ) 


{ 
if (*nbrptr < maxnum) 
{ 
fltaptr[*nbrptr] = 0; 
(*nbrptr) ++; 
} 
while ((ch = string(index**]) 2-2 ' ' || ch == ’\t’) ; 


) 


return (ch); 


/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


stoda : "string to double array" 
Todd J. Peltzer 
after stofa by Norbert H. Doerry 
29 October 1988 
This function converts a string to an array of double precision numbers 
and passes back the array (via "dblaptr") and the number of numbers 
successfully converted (via "nbrptr"). The function returns zero if it 
read successfully to the end of the line, otherwise it returns the 
character at which failure occurred. The fourth argument passed to the 
function ("maxnum") is the maximum number of elements in the array. 
The function accepts numbers in either decimal or exponential form (but 
not ft-inch-eighth). 
Y oe e e e e ede eoe e ee e e e e e o e e oe e e e e e e e oe e e e e e e ce e e e oe e e e o e e e e e e e e e e e e e e e e e e e e e e e v x / 
stoda (string, dblaptr, nbrptr,maxnum) 
char string(]: 
double dblaptr[]; 
int *nbrptr, maxnum; 
{ 
int sign; 
int expsign, exponent; 
int index = 0; 
double power; 
char ch; 
*nbrptr = 0; 


while ((ch=string[(index++]) == ' ’ || ch == /\t’) ; 
/* . . . strip off leading blanks and tabs */ 
while (((ch >= '0' 66 ch <= '9') || ch == '!.' || ch == '+' || ch == '-! 
|| ch == ',' || ch == ';' || ch == ':’) && *nbrptr < maxnum ) 
/* . . . test for allowable characters */ 


sign = 1; 
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power = 10; 
if ( chose '-' || ch == '+') 
( 
iE ( ch == ' =! ) 
sign = -1; 
ch = string(index++]; 
) 
dblaptr (*nbrptr] = 0; /* Initialize value */ 
while (ch >= '0' 66 ch <= '9') 
( 
dblaptr[i*nbrptr]ew 10.0 * (dblapetr [*nbrptr]) + ch = "0*; 
ch = string[index++]; 
} 
if (ch == '.') /* Check for decimal point */ 
while ((ch = string(index++]) >= '0' 66 ch <= '9') 
( 
dblaptr(*nbrptr] = dblaptr(*nbrptr] + (ch - 'O') / power; 
power *= 10; 
) 
/* Check for exponential notation */ 
if (ch == 'E' || ch == "ei"? 


expsign = 1; 


if ( (ch = string(indext+]) == '-' || ch == '+') 
( 
if ( con zx =") 
expsign = -1; 


ch = string(index++]; 

) 
exponent = 0; 
while (ch >= '0' 66 ch <= '9') 
( 

exponent = 10.0 * (exponent) + ch - '0'; 

ch = string[index++]; 
) 
power = (expsign == -1) ? 0.1 : 10; 
while (exponent-- >=]) 
{ 

dblaptr (*nbrptr] *= power; 


dblaptr(*nbrptr) *- sign; 
("Mbrptr)-tt: 


if (ch == '-' || ch »- '*' |] ch == ’.’) 
break; 
while (ch == ' ' || ch == '\t’) 
ch * string[index-tt]; 
if (ch m ":' || ch^ee *';* || ch m= ’,’ ) 
/* recognize these characters as delimiters */ 
while ((ch = string[index++]) == ' ' || ch == 'Nt') ; 
while (ch == ':' || ch == ';' || ch ==""',' ) 


( 
if (*nbrptr < maxnum) 
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dblaptrí(*nbrptr] = 0; 
(*nbrptr) ++; 
} 
while ((ch = string(index++]) ss ' ' || ch == ‘’\t’) ; 


) 


return (ch); 


/zzkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


stoia : "string to short integer array" 
Todd J. Peltzer 
16 April 1989 
This function takes a character string and converts it to 
an array of short integers. 
xkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
stoia(string,array,nbrptr,maxnum) 
char string[]; 
short array[]; 
int *nbrptr; 
int maxnum; 
{ 
char ch; 
int index=0; 
*nbrptr=0; 


/* strip leading blanks and tabs */ 
while ( (ch=string(index++])=='" ' || ch == 'At') ; 


while ( (ch >= '0' 66 ch <= '9') 66 *nbrptr<maxnum) 
( 
array(*nbrptr] = 0; 
while (ch >= '0' 66 ch <= '9') 
{ 
array "nbretr]* 10* (array ({*nbrptr)) + ch - ‘0’; 
ch = string (index++t]; 
} 
(*nbrptr) ++; 
while (ch=e=' ' || ch zx 'Nt') 
ch = string(indext+]; 
) 


return ch; 


/*zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


Norbert Doerry 
11 July 1988 


This converts all the upper case characters in a string to lower case 
Y 0 XX NN NNN NXN NNN NNN NN NN NN eo c c c e cc cc N NNN e e NXN NN NX XX XN XN NN NN N N N NX NX XX X XXX XX / 


suersle(instring, outstring) 
char instring[) ,outstring[]; 


{ 
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for (i = 0; instring[i) != NULL ; i++) 
i= (instring[i) >= 'A’ && instrina[i] <= 'z') 
outstring[i) - instring[i) - 'A' - 'a'; 
else 
outstring[i) = instring[i]; 
} 
outstring[i) = NULL; 


RR EEE ETF RT ET TE 
NAD 
This converts all the lower case characters in a string =¢ uccer case 
+ 


MAMMA ARA MR ARCA A A AA AAA RA AA RRA EA 


sictoue (instring,outstring) 
char imstring[),outstring([]: 


ine i; 


Bore w 0; iastring[i]) = NULL ; i++) 


"6 (Gastkring(i) >= *«' GE iństriag(fi) <= 'p') 
oueopFrimng([i) = instring(i) - a r W; 
else 
owtstring[i) = instring[i); 


} 
outstring[i) = NULL; 


[ERATE KERERRERRR X XX XX X XX X XX XX XX XX SK KX XXX KK KKK KK KK KX KX KX KX X KC X K CK C+ C X 


TE function strips a string of leading and trailing spaces and tabs. 


KA A AAA AA AAA EKE AE AAA AE EAKAE AKT AK AA EE AAA AAA A EA A AAA AAA AA AAA AA AAA AA AE toc ct Roc tont ts eo ow _ 


4 


stestrip (s) 
ciar "s; 
{ 


imt i,j; 


/* fimd first nome space or tab */ 


l 
> 
ct 
i 
m 


for (i = © ; s[i] ==’ ' 1] s[i) 
TR copy string * / 

S8r—(j- 0; s[(i) !» MOLL ; s[j**) se w(3**)); 
s[j) = NULL; 


/* deleté trailing spaces and tabs and Cr*/ 
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2 


Gor (j*=*serlen(s) - 1 ; s(j] ==" ' || a ee LMK || 
s(j] == "Nn' ; s(j--] = NULL); 


/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


This function pads the end of a string with a specified 


number of spaces. 
kktkkkkkkkkkkikikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkikkkkk/ 


pad(str,n) 
char "etr; /* string to pad with spaces */ 
ine ns /* number of spaces to pad */ 


int 1=0,3; 


while ( str(++i] !'=NULL); 
for (j=0; j<n; j++) 

ser [1+3]=t '; 
str [itn]=NULL; 


f Ne e ee e he e e e e e e eoe e e Ñ NNN X X XN NNN N XX XN N NXN kc e e e e je e oe e e e e e e e e e X e X N e e e e e e NXN X N X Ñ 


This function strips the carriage return from a string. 
Y c c ee o e e ee e e e e e e eje e e e e e e e e eje e e e e e e e e e e e e e e e 2.2. 2.2.2 2.2 2.2.2.2 2.2.2 2.2.2.2. 2. 2.2.2 2.2 2.2.2. 2.207 


stripcer (8) 


char *s; 


( 
int j} 
/* delete trailing spaces, tabs, and carriage returns */ 
for (j = strlen(s) - 1 ; s(j) == '" "' || s(j] == “Mt” || 
s(j) == "Nn' ; s[j--] = NULL); 
} 


f NC 9 e ehe U U % 


This function emulates part of the Turbo C bioskey() function. 
oe e e e e e e e o e e e e e e e oe e oe e e e e o e e e e e e e e e e e e e e e e e e e e e e e e e N NNN XX XX NNN X XXX NX NX / 
bioskey (c) 
int c; 
{ 
switch(c) { 
case 0: return get key(); 
casel: return kbhit(); 


ee el af ek af ed NAR RW KON RN WK WW RRO EEE N UNTEN 


This function reads the 16-bit scan code of a key. 
c e e oe e e e e e e e e e e e ee IOI e e e oe e e e e e e c e e e e e e e e e ecc e RE RR REKE RR RR RE RR ER RE RR RR RR RR 


get key() 
( 


union REGS r; 


r.h.ah = O; 
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Eeturn ıint86(0x16, &r, &r): 


KERR RR RR RR RR RE RE EK REKE EER REK REKE RR RR EER RR N X NX NX XX XX X X kc oe Ok Ok Ok N N NX XN NX XX X X + + 


This function returns the position code of arrow and function keys. 
xkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxs/ 
get special () 

union inkey { 
char ch(2]: 


intei: 
xc. 
while (!bioskey(1)); /* wait for keystroke */ 
c.i = bioskey(0); /* read the kay */ 


Péturn c.chí[1l]; 


JOIN RIOR ROO RO FORO RO NOIR ROO FORO RO ROO ROO RO RO e he e e e he he je oe e e e je e e ke e e eoe e c c e e X NX XX e X NX XX XX NX XX XX X Ñ 


This function tests if a character is in a given string; returns the 
position of the character in the string if found, otherwise returns 0. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk*/ 
is in(s,c) 
cher "s, c; 


register int i; 


for (i=0; *s; i++) if (*s+4+ == c) return itl; 


return 0; 


/*kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


This function beeps the speaker using the specified frequency. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
void beepl () 

( 
int freq=200; 
unsigned i; 
union ( 
long divisor; 
unsigned char c[2]; 


) count; 


unsigned char p; 

count.divisor = 1193280 / freq; /* compute the proper count */ 
outp(67, 182); /* tell 8253 that a count is coming */ 

outp(66, count.c(0]); /* send low-order byte */ 

outp(66, count.c[1]); /* send high-order byte */ 

p = inp(97); /* get existing bit pattern */ 

outp (9 E| 3); /* turn-on" bits" O"and"1 */ 


for(i=0; i<32000; ++i); /* delay loop */ 
outp(97, p); /* restore original bits to turn off speaker */ 
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f RR NN cO Oe 0C X X XN X N X N N N NX NX NX X N N N N N NXN N X XN X X X X N X X NX X N X X X NX HOH 


This function beeps the speaker using the specified frequency. 
CY ccce ede cc dec oe oc cede dee ojo e kc / 


void beep2() 
{ 
int freq=400; 
unsigned i; 
union { 
long divisor; 
unsigned char 
} count; 


unsigned char p; 
count.divisor = 


1193280 / freq; 


S2]; 


/* compute the proper count */ 


outp (67, 182); /* tell 8253 that a count is coming */ 
outp (66, count.c(0)); /* send low-order byte */ 

outp (66, count.c[1)); /* send high-order byte */ 

p = inp(97); /* get existing bit pattern */ 

eucpis7, p | 3); 7* turn on bits*0 and 1 */ 

for(i=0; i<32000; ++i); /* delay loop */ 


outp(97, p): /* restore original bits to turn off speaker */ 


/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk* 


video.c 


This file contains a number of functions for controlling screen 
display directly using video RAM. 


Last update: 


13 April 


Functions: 
set video() 
video mode () 
save screen() 
restore screen() 
goto xy() 
cls() 
clear() 
write string() 
write char() 
cursor off() 
cursor on() 
display error() 
pause() 
screen getstrg() 
draw window () 
vid box() 


set video memory location 

return the current video mode 

save a portion of the screen 

restore the same portion of the screen 

send the cursor to row,col 

clear the screen 

clear a portion of the screen 

display a string with specified attirbute 
write character with specified attribute 
turn blinking cursor off 

turn blinking cursor on 

display message in popup window 

pauses until the user presses the INSERT key 
takes keystrokes and displays them on the screen 
draws a window on the screen 


create normal video "boxes" 


X XNXX XNXX XN XN XX NX NX XX XNXX XX XN XN XN NN NN N N doe ee oe ee dee ee dee eode N N NN NN XN N NNN NN XX XX X / 


f RR 9C ehe de hb N XX X 


This function sets the video memory location. 


333 


xkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void set_video() 


{ 


int vmode; 


vmode = video mode(); 

if( (vmode!z2) && (vmode!=3) && (vmode!=7) ) { 
printf ("video must be in 80 column text mode"); 
exit (1); 

) 

/* set proper address of video RAM */ 

if (vmode==7) vid mem = (char far *) 0xB0000000; 

else vid mem = (char far *) OxB8000000; 


/zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


This function returns the current video mode. 
xikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


video mode () 


( 


union REGS r; 


r.h.ah = 15; /* get video mode */ 
return int86(0x10, &r, &r) & 255; 


f| Ke eoe ec e e e e oe e e je je e e e e e ce ee e e e e eje oe e oe e e e X NN e je he X e e e ee e e e e ee e e e e e x e Ye e e e de fe e k x 


This function saves a portion of the screen to memory. 
c Ye Hee e ee ee e e e e e e e e e e e e e e e e e e ee e e e e e e e e e e e e e e ee e e ee e e e e e e e e e e ee e e e X NN XN XXX XN X X / 
void save screen(rowl, coll, row2, col2, pt buffer) 
mic rewl, “coll, row2, col2; 
char *pt buffer; 
( 
SNE/1, j; 
char far *pt video; 


for (i=rowl; i<=row2; ++i) { 
pt video - vid mem + 160*i + 2*coll; 
for (j=coll; j<=col2; ++3) ( 
*pt_buffer++ = *pt videott; /* Save char. */ 
*pt buffertt - *pt videott; /* Save attribute. */ 


f Ke e e e e dece dece dece ede e e e e e e e e e e ec ec ec e e e e e e e e e ee e e e e e e e e e e e e ee e e e e e e e e e e e e Ñ 


This function restores a portion of the screen from memory. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void restore screen(rowl, coll, row2, col2, pt buffer) 
int rowl, coll, row2, col2; 
char *pt buffer; 
( 
LI, 
char far *pt video; 
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for (i=rowl; i<=row2; ++i) { 
pt video = vid mem + 160*i + 2*coll; 
for (j=coll; j<zcol2; ++j) { 
*pt_videot+ = *pt buffer++; 
*pt_video++ = *pt buffer++; 


f| RC e e e e ec ke e ke e e oe e e oe e o e oe e e e je oe e X X NNN XX N NN NX N N NX N X NN X N N NX NX X N NX NX XN NN X X X N X N X X N 


This function clears the entire screen. 
ce oe e e ke e e kc cnc de c eoe ecc ee e e e e ee e e eoe e de e je ec ce ke e ce e je oe e e e c ce / 


void cls() 


{ 


union REGS r; 


r.h.ah=6; /* screen scroll code */ 
r.h.al=0; /* clear screen code */ 
r.h.chz0; /* start row */ 

r.h.cl=0; /* start column */ 
r.h.dh=24; /* end row */ 

r.h.dl=79; /* end column */ 

r.h.bh=7; /* blank line is blank */ 


int86(Ox10, &r, &r); 


PROA RO RO RO MORO eoe eoe e e TOR ec e ec ce ce ec e e ec e oe e e e ce e oe e e c ce e e ecc OR ke oe o Re kc Ok e e e kc NOR N XX e Ke Kee 


This function clears a portion of the screen, using either normal or 
reverse video. 
ce eco c c ee oe eco kc e e oe e kc ec e e e e / 
void clear (rowl,coll, row2,col2,attrib) 
unsigned rowl, row2,coll,col2; 
int attrib; 
{ 
char far *pt video; 
unsigned row,col; 


for (row=rowl; row<=row2; ++row} 


{ 


pt video - vid mem + 160*row 4 2*coll; 
for (colzcoll; col<=col2; ++col} 


{ 
*pt_video++ = ' '}; 
*pt_video++ = attrib; 


f RR ee ce ec ec e ce ecce e cec ecc ce e e de c e e e cc e e e e e c e c e c e NXN NN XN e e e e e e e e e e e e e e e e e e e e e e de ee 


This function sends the cursor to a specified location on the screen. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void goto_xy(row, col} 
int row, col; 
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union REGS r; 


r.h.ahz2; /* cursor addressing function */ 
r.h.dl=col; /* column coordinate */ 
r.h.dh=row; /* row coordinate */ 

r.h.bh=0; /* video page */ 


int86(0x10, &r, &r); 


f. FIOI ehe ene ee ce e e e e de e e ek 0 e e OC OC OC ORC ORCI N N N N NN NN XN NN N N N N N NN NX NX N N N N N N NN N X NX Ñ 


This function writes a string at a specified location on the screen, 
using a specified attribute. 
Y c e e e e o / 
void write string(row, col, string, attrib) 
int row, col; 
char *string; 
int attrib; 
{ 
register int i; 
char far *v; 


v= vid mem; 


v += (row*160) + col * 2; /* compute the address */ 
for (i=col; *string; i++) { 
*v++ = *stringtt; /* write the character */ 
“vit = attrib; /* write the attribute */ 


fh n e e e eee he e e e echec e hc e e e e e Poe e e e e e e e e e NXN NN ÑK NN NN NN ÑN NNN NNN ÑN NN NN NXN NN NN NN N 


This function writes a string at a specified location on the screen, 
using a specified attribute. 
C ec ec e c eoe ee oe c c c e e e C e CO OR N NN X N N NN NN NN N N N / 
void write char(row, col, ch, attrib) 
int row, col; 
char ch; 
imt attrib; 
( 
register int i; 
char far *v; 


v - vid mem; 


v += (row*160) + col * 2; /* compute the address */ 
*y++ = ch; /* write the character */ 
Su = attrib; /* write the attribute */ 


f ROO e de e e e e e e e e e e e e N 


This function turns off the blinking screen cursor. 
Y OR CK OC OM OK OR OC e / 


void cursor off {) 


{ 
union REGS r; 
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r.h.ahz1; /* cursor size code */ 
r.h.ch=0x20; /* set bit 5 on; turn off cursor */ 


int86(0x10, &r, &r); 


/7XX XNXX NN XXX XN NNN XX XN NXN XN XN NXN XN NX N N NX NX XN X X XX NXN XN XX X N NX XX XN N NX N XN XX X N NX X X X N N 


This function turns on the blinking screen cursor. 
X ce II e e e e e e ode IOI N NNN NX NX XX XX XX XN NNN X KOR RR ER RE RE RR RE EER 


void cursor on() 


{ 


union REGS r; 


r.h.ahz1; /* cursor size code */ 
r.h.chz6; /* set start scan line */ 
r-h.cl=7; /* set end scan line */ 


int86(0x10, &r, &r); 


f. RR oe che ke e che e e e e c ce e e e ÑN NX NN NN NX XN XX NXN e e e e e e e e e e e e e e le le i e ke ce e e e e e e o N 
Function: display error() 

Author: Todd J. Peltzer 

Last update: 24 April 1989 


This function creates a popup window and displays up to two lines of 
text, with either "ERROR" or "WARNING" as header, or with a blank header. 


Maximum length of text per line is 38 characters. 
c / 


static char footer(] = 
(" Press any key to continue "); 


void draw window(); 


void display error(type,textl,text2) 
int type; 

char *textl, *text2; 

{ 


char *buffer; /* video buffer */ 
int rowl=10; /* start row x/ 
int row2=16; /* end row * / 
int coll=19; /* start col */ 
int col2=61; /* end col */ 
char header[8]; /* header text * / 


int start; 

union inkey { 
char ch[2]; 
ine i; 


RZEZ 


cursor off(); 
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if (type==ERROR) 

( 
sprintf (header, "ERROR") ; 
beepl (); 

) 

else if (type==WARN) 

( 
sprintf (header, "WARNING") ; 
beep2(); 

) 

else ; /* type==BLANK */ 


/* allocate enough memory for video buffer */ 
buffer = (char *) malloc (2 * (row2-rowl+l) * (col2-col1-*1) ); 


/* save portion of video screen */ 
save screen (rowl, coll, row2,col2,buffer) ; 


/* create window background and border */ 
draw window (rowl, coll, row2, col2, DOUBLE, REV_ VID) ; 


if (type==ERROR || type==WARN) 

{ 
/* write header */ 
start=coll+(col2-coll-strlen(header) )/2; 
write string(1l,start,header, BLINK REV VID); 


/* write footer */ 
start=coll+ (col2-coll-strlen(footer))/2; 
write string(row2,start, footer, REV VID); 


/* write first line of error message */ 
start=coll+(col2-coll-strlen(textl))/2; 
write string(13,start,textl,REV VID); 


/* write second line of error message */ 
start=coll+(col2-coll-strlen(text2) )/2; 
write string(l4,start,text2,REV VID); 


/* wait for keystroke, then restore screen and exit */ 
while (1) 
( 


c.i = bioskey (0); /* xead the key */ 
if (c.ch[90]) /* key is a normal key */ 
{ 

break; 
) 
else /* key is a special key */ 
( 

break; 
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restore screen(rowl,coll, row2,col2, buffer); 
free (buffer); 
cursor on(); 


f ROC e e e e echec ce e e e e eoe ce NXN NN NX XN XX XN NN NN XN NN XN XN NX XN NN XN XN XX X X XX X N XX NXN NX XX XX X 


This function halts program execution until the user presses the 
INSERT key. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkj/ 
void pause(startrow, startcol, endrow, endcol, msg, attrib) 
int startrow; 
int startcol; 
int endrow; 
int endcol; 
char *msg; 
int E 
{ 


int start, key, i; 


/* write quit message */ 
start=(endcol-startcol-strlen(msg))/2 + startcol; 
write string(endrow, start,msg,attrib); 


/* get user's response */ 
while (1) 
( 

key-get special(); 


if (key==INSERT) 
{ 
/* erase message */ 
for (i=0; i<strlen(msg); i++) 
( 
write char(endrow, start+i,205, attrib) ; 
} 
break; 
) 
else if (key==ALT Q) /* exits program; returns to DOS */ 
( 
cursor on(); 
cls(); 
exit(0); 
) 
else 


( 


continue; 


f Noo TEN 


This function takes input keystrokes and displays them on the screen. 
Uses full 16 bit scan code. 
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Y c e e e e e e e e e ee e e e XN NN N N je je e e e e e e X XN X N NN NN XN XX XX XX X e N e X Ñ X N e N NX X X X NX N X N X XX / 


typedef struct 
{ 
int startcol; 
int endcol; 
} data_box; 


void screen_getstrg(i,row,col, string, attrib, input) 


IDE 1; /* data index * / 
int row, col; /* starting row, col */ 
Shar “string? /* ptr to string KI 
int attrib; /* norm/rev video Wi 
data_box *input; /* data structure * / 


( 


union inkey ( 
char ch(2]; 


int i; 
) e; 
int j=0; /* array index */ 
ant k; 
while (1) 
( 
c.i = bioskey(0); /* read the key */ 


if (e.ch[0]) 

{ 
switch (c.ch[0)) 
{ 


case ESC : /* the ESCAPE key is pressed */ 
3=0; /* reset array index */ 
string[j) =NULL; /* NULL string */ 
for (k=input[i).startcol; k<input[i]).endcol; k++) 
write char(row,k,' ',attrib); 


colzinput (i) .startcol; 


break; 
case 'Nr' : /* the ENTER key is pressed */ 
string(j]=NULL; /* NULL terminate string */ 
return; 
case BKSP : /* back space */ 
if (col == input(i).startcol) break; /* prevent backspacing past start */ 
else 
{ 
col=-> 
deep 
write char(row,col,' ',attrib); 
c.ch(0) pea’ we: 
string(j]=c.ch[0); 
break; 
) 
case ' ' : 
if (i»0) break; /* spaces not allowed in numeric input */ 


else if (col »- input[i].endcol-1) 
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break; /* no typing beyond end of box */ 
) 
else 
( 
write char(row,col,c.ch[0],attrib); 
string(j]=c.ch[0]; 
col++; 
j++; 
break; 
} 
default : 
if (col == input[i] .endcol-1)} 
{ 
break; /* no typing beyond end of box */ 
} 
else 
{ 
write char(row,col,c.ch[0],attrib); 
string[j]=c.ch[0]; 
col++; 
SET 


) 
goto xy(row,col); 
) 
else 
( 
switch(c.ch[1)) 
( 
case ALT Q : 
cursor on(); 
cls(); 
exit(0); 
default : 
break; 


f| NCC e ce ce che e e ee e e e e e ee c kc e ee e e ck e ec e e c e e e e c NN NX NN NX XX XX NX X X XX XNXX XN Ñ 


This function draws a window on the screen with a specified video 


attribute (reverse or normal), and a specified border (single or double). 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void draw window(startrow,startcol,endrow,endcol,border,attrib) 


int startrow; /* starting row, screen coordinates */ 

int startcol; /* starting col, screen coordinates */ 

int endrow; /* ending row, screen coordinates */ 

int endcol; /* ending col, screen coordinates * / 

int border; /* if 1, single border; if 2, double border */ 
ine attrib; /* normal or reverse video */ 


{ 


int row,col; 
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DE It pr rt, lwr lft, lwr rt, top, bot, mide; 


if (border==S INGLE) 
( 
upr_lft=218; 
upr rt»191; 
lwr 1fts192; 
lwr rtz217; 
topzbotz196; 
side=179; 
) 
if (border==DOUBLE) 
( 
upr lft-201; 
upr rtz187; 
lwr_1ft=200; 
lwr rtz188; 
topzbotz205; 
sidez186; 


/* create background */ 
for (row=startrow; row<=endrow; row++) 
for (col=startcol; col<=endcol; col++) 
write char(row, col,” ',attrib); 


/* if no border, exit */ 
if (border==NONE) 
{ 


return; 


/* draw border */ 

write char(startrow,startcol,upr lft,attrib); /* draw corners */ 
write char(startrow,endcol,upr rt,attrib); 

write char(endrow,startcol,lwr lft,attrib); 

write char(endrow,endcol,lwr rt,attrib); 


for (col=startcol+1; col<endcol; col++) /* draw top border */ 
write char(startrow,col,top,attrib); 
for (col=startcol+1; col<endcol; col++) /* draw bottom border */ 


write char(endrow,col,bot,attrib); 

for(rowzstartrowtl; row<endrow; row++) /* draw left border */ 
write _ char (row, startcol, side, attrib); 

for (rowsstartrowtl; row<endrow; row++) /* draw right border */ 
write char(row,endcol,side,attrib); 


f RR Ge e e e e ee e e e e ee e e e e e e e e e e e e e e e e e e e Re e e e e Re e e e e e e e e e e e e e e e e e e Re e eoe e e e e e c e e 


This function draws text header on the screen with a specified video 


attribute (reverse or normal), and a single border. 
Y / 


void write header(startrow, startcol,endcol,header,attrib) 
int startrow; 
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int Startcél> 
int endcol; 
char *header; 
int attrib; 

{ 


int start; 


start = (endcol-startcol-strlen(header))/2 + startcol; 

draw window (startrow+l,start-l, startrow+3,start+strlen(header), 
SINGLE,attrib); 

write string(startrowt2, start,header, attrib) ; 


) 


AALE KLEK ROOF 


This function is used to create normal video "boxes" on an otherwise 

reverse video background to highlight data entry locations. 
xkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 
void vid box(startrow, startcol, length) 
int startrow; 
int startcol; 
int length; 
{ 


3nt 1; 


/* create normal video boxes for data entry */ 
for (i=0; i<length; i++) 
write char(startrow,startcolti,' ',NORM VID); 


f| RR de c de e ee ee ee je e e e c e N NNN NNN X XÑ NNN N N N NN N N N NNN XÑ XN ÑN NN NÑ N N N c ce e e e e c e e ke je e N 
popup.c 
Author: Todd J. Peltzer 
Last update: 29 March 1989 


Functions: 
popup () 
display menu () 


get resp() 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


void display menu(), draw window(); 


f[ Ek dee de e eoe e e e e hec e ec e oe e ec e e e e e e e e oec oe ec e e e e e e e e e hc ec e e e e e ec e ec e e e e e e 2.2. 2.2.2. 2.2.2. 2.2.2. 


This function displays a pop-up menu and returns the user's selection: 
-- returns -2 if menu cannot be constructed 
-- returns -1 if user hits escape key 
-- otherwise the item number is returned starting 
with O as the first (top most) entry 


xkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk/ 


int popup (menu, keys,count,startrow, startcol,border,attrib,start) 


char *menu[]; /* menu text */ 
char *keys; /* hot keys */ 
int count; /* number of menu items */ 
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int startrow; /* starting row, screen coordinates */ 


Int startcol; /* starting col, screen coordinates */ 

int border; /* if 0, no border; if 1, single border; if 2, double border */ 
mmc Attrib; /* normal or reverse video */ 

int start; /* starting item to highlight */ 


{ 


register int i, len; 

int endrow; /* ending row, screen coordinates */ 
int endcol; /* ending col, screen coordinates */ 
int choice, vmode; 

unsigned char *p; /* buffer for screen data */ 


if( (startrow>24) || (startrow<0) || (startcol>79) || (startcol<0) ) 
{ 

printf ("range error"); 

return -2; 


/* compute dimensions */ 
len = 0; 
for (i=0; i<count; i++) 
if(strlen(menu(i]) > len) len = strlen (menu[i]); 
endcol = len + 4 + startcol; 
endrow = count + 1 + startrow; 
if ((endrow+1>24) || (endcol+1>79)) 
{ 
printf("menu won't fit"); 
return -2; 


/* allocate enough memory for menu screen buffer*/ 
p = (unsigned char *) malloc(2* (endrow-startrowtl)* (endcol-startcol-*1)); 
if(!p) exit(1); /* install error handler here */ 


/* save the current screen data */ 
save screen (startrow, startcol, endrow, endcol,p); 


/* draw border and background */ 
draw_window (startrow, startcol, endrow, endcol, border, attrib) ; 


/* display the menu */ 
display menu(menu, startrowt+1, startcol+2, count, attrib) ; 


/* get the user’s response */ 
choice = get_resp(startrowt1, startcol+l, count, menu, keys, attrib, start) ; 


/* restore the original screen*/ 

restore screen(startrow, startcol, endrow, endcol, p); 
free (p); 

return choice; 


XXX XXX NXN NXN NN XX NNN XNXX NNN X XXX XN XX XX XN XN NX NX XN NXN XXX N NN NX XN X X N N XN N N XN X X X N X 


344 





This function displays the menu in its proper location 
f| RNC / 
void display menu (menu, row, col, count, attrib) 
char *menu([]; 
int row; 
int col; 
int count; 
ine attrib; 
{ 


register int i; 


for(i=0; i<count; i++, row++) { 


write string(row,col, menu[i], attrib); 


/7XXXN XX NX XX XN NX XN XN NN NX NXN XX NX XX N N NNN X XX ce N N NX N NX N N NXN XN N NNN XX XX X X NX XXX X X XX XX XX X 


This function gets the user’s selection. 
[ROR Ce e oe e ce ce e e e e e e ce e e ce ec e ce ce e e e e oe ee e e e e c je o Re OC i e e e N XX NN XN XN NX XX XX XN X X N / 
get resp(row,col,count,menu,keys,attrib,start) 
int row, col, count; 
char *menul]; 
char *keys; 
int attrib; 
int start; 
{ 
union inkey { 
char ch(2); 
inte 
) c; 
int arrow choicesstart, key choice; 
unit highlight; 


col++; 


/* highlight the first selection */ 
if (attrib==NORM VID) 
( 
highlight = REV_VID; 
) 
else if (attrib==REV VID); 
{ 
highlight = NORM VID; 
) 
goto xy(rowtstart, col); 
write string(row+start, col, menu[O0+start], highlight); 


for (7; 

{ 
while(!bioskey(1)) ; /* wait for key stroke */ 
c.i = bioskey (0); /* read the key */ 


/* reset the selection to original video attribute */ 
goto_xy(rowtarrow_choice, col); 
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write string(rowtarrow choice,col,menu[arrow_choice], attrib); 


mete. chl0J5 /* is normal key */ 

( 
/* see if it is a hot key */ 
key choice = is in(keys, tolower(c.ch[0])); 
if(key choice) return key choice-1; 


/* check for ENTER or space bar */ 
switch(c.ch(0]) 
( 
case '\r’: return arrow_choice; 
case ' ' : arrow_choice++; 
break; 


case BSC : return -1; /* cancel */ 


) 
else /* is special key */ 
( 
switch(c.ch(1]) 
( 
case UP ARROW: 
arrow choice--; /* up arrow */ 
break; 
case DOWN ARROW: 
arrow _choice+t+; /* down arrow * / 
break; 
case HOME: 
arrow choice=0; 
break; 
case END: 
arrow choice=count-1; 


break; 


} 
if (arrow _choice==count) arrow choice=0; 
if(arrow choice«0) arrow choice-zcount-1; 


/* highlight the next selection */ 


goto xy(rowtarrow choice,col); 
write string(rowtarrow choice,col,menu[arrow choice],highlight); 
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